CD 

0) 
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a 
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IFHNDLR 



LENGTH OF PRG 

01102 

1 

1 + n ft i 

IDENT 

TNOS un F 

IFHNDLR 

+ 4 Y S M A C. .. .....-. 




1+002 

102 

UWBDEF 

• * 

_ u U \f W. 1/ )( V M ... W it M , 1L M It . W 

¥ 

r >f if tf v *# if W. it It H It GL MU Gill It it Jl Jt li 1L it X X il ft st \f >f \r llJt At H it w U %* 




10 3. 

10 4 

105 

^ ^ .^ 

. * 

• ^ ^ -j* y* • V* n* nr np Tr ir *jr "V* V* 'Tp ' 4 *C t njr TP * P"’^*'^P ip • tP •V'np nP ’V' Tf* *y* -V* *vp *ir np *sP nr nP nr ip np 

* 

UNBLOCK BLOC K OEFINITI ONS...........*.... 



0-0-0-04) 

0 00 01 

0 0 0 0 2 
0 00 0 3 
0 0 0 04 

0 00 06 

0 0 010 
0 0 011 

"■0*0'G1*2“ 


" 0 'B Q ZZ" 
0 0 023 
00024 


QQ024 


0 0 G 25 
0 Q 0 26 
•o 0 027 


106 

107 

108 

109 

110 

111 

112 

113 

.114 

115 
.116. 

117 

118 
119“ 


-C -ON SLOCK 
BFPTR 

. * 

3LKP0S 
IMADR 
C AL LBAD 

. T* . 

RDIST 

- 

WCNT 

CBLCCK 

-T-fHA-0— 


EGU 

EQU 

EQU 

EGU 

EQU 

EQU 

EQU 

EQU 

EGU' 


0---- 

C 0N3LQCK+1 

BFPTR+1 
S LKPOS+1 
IMADR+1 . 

C ALLS AO + 2 

RDIST+2. 

WCNT+1 
G*3LG6K+1- 


00 013 

120 

PSALGC 

EQU 

TIMAD+1 

0 00 13 

121 

DISK 8 USY 

EQU 

PSALOC 


. 122 .. 

» ¥ 



0 0015 

123 

EXITADD 

EQU 

P SALOC + 2 

..[)■■■■ G-G-46. 

..... 42 . 4 .. 

..BlES-A U£. 

£CUJ_ 

..EXITAOD + 1- 

0 00 17 

X. au. 

125 

UW8WC 

EQU 

PFSAVE+l 

0 0 020 

126 

127 

UW3RET 
-~0#8X~3-- 

EQU 

EQU 

UWBWC+1 
.- U W3WC + 2” 


12 8 
129 

.I"3¥. 

131 
.132. 

133 

134 
"135. 

136 

137 
TT8T 

139 
14 0. 

141 

142 
“14'3*" 

144 

145 


.B'AT'CHPNT. 

DESTLP 

UMMAX-- 

* 


'EQU. 

EQU 

-EQ.U- 


UW3X3+1.~ 

BATCHPNT+1 
-DESTLP-+-1—— 


EXPDATA 

* 


EQU 


EQU 


UWMAX 


COMWORD 

* 

DEV TYPE 'EQU 


U-WHAXA 

v 


EQU' 


EXPOATA+1 
CCMWORD+1 
DEVTYPE+1 


POINTER TO.8 WORD CONTROL BLOCK *- 

POINTER TO CURRENT CORE BUFFER * 
-0 IF NO BUFFER FRESENT * 

CU RRENT BLOCK PCS ITION * 

ADORESS OF WORD COUNT AND IMAGE * 
CALL BACK ADDRESS * 

RT J MAC HERR .." * 

ENI BLOCK,CBI * 

UJ F IKFURE.-.- * 

TEMPORARY WORD COUNT * 

ADORESS OF CURRENT BLOCK * 

TEMPORARY FOR CURRENT POSITION * 
ADORESS OF ASSOCIATED PSA * 

BUFFER UNSAFE FLAG * 

'ENI 8LOCK',CBI .~ ."* 

UJP IMPURE RETURN ADDRESS * 

TEMP TO S AVE T H E CONTENTS OF PFi* 

TEMP TO SAVE WC AND CALL BACK * 
ADDRESS IF CALI TO UW8L0CKB * 

"TEMP.T C • S A V E—RET UR N ADDRESS IF .. 

CALL TO UW8L0CKB * 

BIT23 IF LAST RECORD WAS ILQGGFF* 

‘ P 0IN TE R T 0 THE PRO PER BATCH Q.* 

DESTINATION LINE PRINTER * 

NUMBER.OF.WORDS.IN.SHORT.BLOCK * 


THE FOLLOWING ARE USED ONLY FOR * 

DE VICES.■THA-T-COME.FROM.T HE POP8 * 

31723 SEZZ EXPECTING DATA * 

BITS 14 — 0 HAVE 64 WORD BLOCK * 

''ADDRESS ... . * 

12 BIT BYTES WITH THE CONTROL * 

-BLOCK.INFO RMAT ION.. «- 

SITS 14 — 0 HAVE UNBLOCK ROUTINE * 

POINTER * 

NUMBER OF. WGRSSINLONGER BL0OKS* 

* 


o 
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IFHNDLR 


. THIS ROUTINE.IS.THE" POPS CDC.330 0.INTERFACE.DRIVER.. *" 

■v 

..THIS.ROUTINE HANDLES ALL I/O TRANSFERS BETWEEN THE TWO * 

MACHINES. ALL TABLES USED IN THE TRANSFER CF INFORMATION ARE * 
BUILT BY IF ST ART DURING INITIALIZATION. IF FOR SOME REASON * 

.A NEW. TYPE . OF .DATA.TRANSFER. WERE" .TO BE.ADDED ,.IT.IS.LI KEY.*"" 

THAT ALL CHANGES WOULD BE TO IFSTART. * 


ALL INFORMATION BETWEEN THE TWO MACHINES IS IN THE FOLLOWING 
FORMATt™.... «* W> . ..—-- 


LABEL 

"BYTE". 

BYTE 


COUNT 

"BYTE. 

BYTE 


BYTE' 

BYTE 


-BYTE- 

BYTE 


ALL""DATA.BYTE'S.ARE" ASSUMED "TO SE 12 ‘BITS 'LONG. THE £ X ACT. 

MEANING OF COUNT MAY VARY BETWEEN DIFFERENT TYPES OF DATA SO 

JO-GST AIN.THE.CORRECT-.MEANING.FOR—COUNT.ABOUT.ANY.PARTICULAR 

TYPE OF DATA, SEE THE COMMENTS ON THAT SECTION. 


IF SOME REASON THE POP8 INTERFARCE HERETO BE REPLACED BY 
SOME OTHER PIECE OF EQUIPMENT (CDC 1700, 3316, 3266, ETC) 
ROUTINE WOULD HAVE TO BE SCRAPPED. HOWEVER, 

tpchirs, .TTTHFTinw'rNu; .and.others").could... 

LITTLE OR NO CHANGES. 


MOST OF THIS 

"SOWE.SECTIGW 

BE USED WITH 




JLA6. 


' MACRO ' LAS, .FUNCTION- 
NAME ISSUE 

ENA $ FUNCTION 

RTJ SEL 

END 


ENTER FUNCTION CODE TO ISSUE 
"ISSUE^F UNCTION.... 




IF TEST NE '0 THIS CAUSES A GOOD NUMBER'CF COPY INSTRUCTIONS-- 

TO BE GENERATED. THE PDP-8 STATUS ON EQUIPMENT INTERUPT 
IS PUT IN RF 308 AND THE STATUS AFTER A CALL TO CONNECT IS 

.POT.IFTRF 3IB.‘ RF27B IS INCRIHENTED AFTER - A.NO.RESPONSE STATUS 

IS SENSED ON EQUIPMENT INTERUPT, 

—A-LSC-r- A--B-UN-GH OF- SLS/S - ARE ASS EMBLED -IN— OPER-T-UNE- PLACES-.- .- 

IF TEST, EQ Q, ALL THE ABOVE IS NOT OGNE, AND THE REGULAR 

PQPr8' DRIVER WILL EXIST .~~. - 


* ■* *■¥ *»¥• **■ ¥- 


0 0 000 

To7~43. P 

00647 P 
0 0771- P 
0 07 47 P 
00641 P 

~0 '0 0 0 3.P 

00011 P 

0112-0 0.E.« 

00414 P 
00410 P 
00005P 
00020 P 
00001 P 

00521.P 

01060 P 


6 0 

61-- 

61+0 01 
61+002 
62 

63 

64 

"d4+"0"'0T" 

64+002 

-65. 

66 

67 

"6 8 -. 

6 9 

7 0 

7T~~~. 

72 

73 .-._ 

74 

75 
7 6 

76+001 


NO HALTS OR CHECKS 


ENTRY 

ENTRY 

ENTRY- 

ENTRY 

ENTRY 

"ENTRY 

ENTRY 

-ENTRY- 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY" 

ENTRY 


CHAR 
CHAROUT 
CHAINL 
CHARINP 
G HAROUTP 

"DUMP LAB". 

DUMP8 

IFCON ._ 

IFEXIT 
I FEND 

I FI NIT.- 

IFINT 
PDP8BLK 
P DP8CTLX 
PCHARS 


A 

8IT17 

8IT19 

BIT-22 


POINTER.TO.Q'U'HP.LABEL 


o 
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IFHNDLR 


.77. 

78 

78+001 
7 9 
80 
81 
82 
83 

.8 4.* s 

84+001 

85 . 

86 

87 

88 .. 

89 

90 

91 .:.. 

92 

..9-2+0 01. 

93 


8II2321 

BIT23 

.8112322. 

CONNECT 

CONTROLA 

CMQSET 

CHCODE 

CR 

CREATE.'. 

DUMPLABL 

FREECHN 

FREEMEN 

GETMEH 

H SI NP 

INBOUND 

INHIBIT 

IOCLEAR. 

IOSET 

-MAX 8 FLO. 

NBIT19 
NBIT23 
NIT WAIT 
N OUT BHD 


LABEL TO USE FOR 7DUMP* OPERATION 


FREE STORAGE ROUTINES 



..9 8.. 

..EXT... 

.■.pdpscq......*.:... 


99 

EXT 

PDP8CQL 

.,............ 

.10-0. 

...EXT. 

.P OPS IQ..-..■.... 


PDP 8 IQL 

P 0 P 80 Q 

PDP 80 QL" 

PSABLK 

TERMINAL 

TIMETH. 

TTCNT 
T TINMAX 
TTFCHR 
TTLCHR 
TTNUM 



112 

EXT 

SYSCM 


O ... 

113 

EXT 

UHGON 

.......... 

UNCQNNECT ROUTINE 


.07.773. 
0 0000 
0 0 0 0 0 
0 00 00 
0 0 Q 0 0 
OQOOi 
"0'0'0T3'2‘ 
0 0 0 08 
.0 0.0.01. 
0 0 0 03 


-DINT. 

IMPURE 

10 

SELECT 

SENSE 

XI 

"X' 2 "“. 

X 3 

- 8 -LK. 


J17Z\ 


0 0 0 0 0 
0 0 0 01 


* 


PREDEFINED BLOCK 


q q. qq qq q q qq q.q qq qq qqq qqqq qqqq q qq qqqq q q q.q qqqq qqqq q qq: 


qqqqqqqqqqqqqqqqqqqqq 

q 

* 

......... : .. q . 

qqqqqqqqqqqqqqqq*qqqq 


HAINT 

CONTROL 

"T”T-¥'BA-T-A~ 


o 


o 
























































A SSE MBLER/QS 3 VI, 0 09/25/74 1902 PAGE 4 


0 0 0 01 
0 00 02 


IFHNDLR 

STAT0S .CODES FOR.INTERF A RC E 


0 0 100 
0 0 200 
0 0 4 0 0 
01000 
0 20 00 
0 4000 


0 0 0 01 


READY 
3US Y 

—— 


STRDREQ 
STCHBIT 

STRSERR. 

STR8INT 
STEOINT 
-E“T ABTNT 


—0 0 04-8— 
0 0028 
0 0048 

.00103. 

0 0208 
0 0403 
0 iO 0 3 
0 2008 
04008 
1 0008 
2 0008 
.4 0 0 QB 


READY.AND.PDF-8.RUNNING. 

BUSY 

IF WORD COUNT REG. NOT LOADED 
IF SANK SITS NOT LOAOED *• 

IF ADDRESS NOT LOADED 
WRITE REQUEST (3300 TO IF) 

READ REQUEST (IF TO 3300). 

COMMUNICATION BIT 

RESPONSE ERROR------- 

READY AND NOT 8USY INTERRUPT 
END OF OPERATION INTERRUPT 
ABNORMAL END OF OPERATION INT, 


151 

* 

152 

* 

.153 

* 

154 

* 

.-1-5-5.-. 

.* 


FNWREQ 

* 

-v—— 

* 

* 


FUNCTIONCODESFORINTERFARCE 


0 0018 


SET COC WRITE REQUEST (3300 TO IF 
SETS : 

~GOG.CONTROL ' 

CDC ENABLE 

ADDRESS, XADDRESS, AND WORD 

.COUNT.NOT.LOADED. 

CDC READ REQUEST INDICATOR 

.PRLIMI NARY.READ--/. WRITE.-.-.-.— 

RESETS: 


16 5 

* 



POP ENABLE 

. 165 




ADDRESS' AND' WORD COUNT ' REGISTERS...------.*...-. " 

167 

V ■ 



WORD COUNT OVERFLOW 

168 

* 



REJECTED IF PDF-8 CONTROL OR 

15 9 

17 0 

, - -—.- -.-.-...171- 

4r 

•¥* 



ENABLE SET. 


0 0002 

171+001 
17 3 

FNRREQ 

Af. 

EQU 

0 0028 



SET READ REQUEST (IF TO 3300) 

OTHERS SAME AS FNFWREQ 


..0.0..0.0 3... 

.17 4 . 

175 

.:. 17,6 . 

•V- 

.EMC..O.MM..._ 

ECU__ 

.:.0 0.0 3B ... 



.SET CQNMUNI.CA7.LON BIT.... 



177 

17 8 

..1-7-P. 

■* 

* 





SHOULD NOT BE REJECTED 


0 0 0 04 

17S+0G1 
181 

FNLDWC 

T- 

EQU 

00048 



SET L C AC WORD COUNT INDICATOR 
REJECTED IF CDC ENABLE OFF 


0 0 010 

.18 2 . 

18 3 

18 3 + 00 1 

¥ 

FNLDAO 

EQU 

0 010 8 



SET LOAD ADDRESS INDICATOR 



. IW5 . . 

186 
„ 11| 7 ' -. 

#- 

¥*■ ■ 





REJECTED IF CDC ENABLE OFF 


0 002Q 

188 
■ 189 

FNALW 

EQU 

0 0208 



ALLOW TRANSFER 

RESET PDP-3 CONTROL, 



.190. 

191 

192 

+ 

•$> 





RfcbEi CDC ENABLE* 

REJECTED IF: 

ADDRESS REGISTER NOT LOADEO 



. 193. 

. 194 

...;.i„9S-... 

... 

¥* ' 

. : ... 





: ...WORD.COUNT REGISTER NOT LOADED 

CDC ENABLE OFF 


0 0 040 

196 

19 7 

V 

FNINT 8 

.... ...., 

EQU 

0 0408 



SET POP INTERRUPT 



.. . ....^ **.. y - 

1 b O 

199 
. 200 

nr. 

•¥- 

* 





.lr lul uLNiHUL CN • be I Her cNAoect 

RESET CDC ENABLE 

SHOULD NOT 8E REJECTED 

S . ' 

0 0100 

-_- 2gf .- - 

202 

20 3 

-- r ~ 

TT 

... ENRERR._ 

EQU.- 

._.0-100-8 



..- SET.RES BOUSE .£ RRCR.... 


0 0200 

204 
, 205 

„___ 2 .g 6 . 

207 

208 

¥- 

™ 

FNENINT 

* 

EQU 

0 2008 



SHOULD NOT BE REJECTED 

ENABLE INTERRUPT ON READY 

AND NOT BUSY TRANSITION 

——- r—- ~ — - 


__ 20g . 

210 

..._.211.._ 

. A 1 . 

* 

* 





“ ..SHOULD NOT BE REJECTED 


0 0 40 0 

212 

213 

.. . 0-4 /. ..... . 

FNI NT 

Ar 

... .y.. 

EQU 

0 4008 



ALLOWPOP-8TCINTERRUPT 

SHOULD NOT BE REJECTED 



cl 4 

215 

* 








o 



















































.CI¬ 
ENA 8 LE E00 AND AS EDOIN TERRUP TS 
SHOULD NOT BE REJECTED 


RESET INTERRUPT ENABLES 

SHOULD NOT BE REJECTED. —...^ ~ 

0 

CLEAR.INTERRUPT.CONDITION. : . . : . i! 

CLEARS COMMUNICATION BIT 

CLEARS.RESPONSE.ERROR..--...-.s 

SHOULD NOT BE REJECTED 0 

.*...:...:.... nO 

G 

............,...............i. o 

.■ ■ ' o 

.o 

o 

..j f ......:.o 

..... ..r...~.*. v o 

.^...*.. o 

...”.-... o 

....1...o 

. : .**.....:.o 

..;...■............. o 

. :: ... : .. : ... pp: . p .o 

:.-y.•..........«........o 


o 
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IFHNDLR 


0 00 0 0 

00000000 

0 0 010 

..0-00-2-0. 

.23 0 

231 

....■.232.. 

IFBUSY 
IFREAO 
.IFW RITE. 

VFD ’. 

EQU 

.EQU. 

0 0 0 01 

00 00 0 0 00 

233 

PDP8BLK 

VFD 


0 0701 

233+001 

PDPWCST 

EQU 

■ -.—-OOD-B-e- 

.-o o OO 0 0 0 0 

'2-3-3+-0-0-2--- 

™P QPWCAD. 

VFD— 

0000 3 

00 00 0 000 

233+003 

0UMPLA8 

VFD 


PROCESS WRITE TO POP8 

."A2l7TMPUR£',O3/0. 

108 

•..2 08 ---.-. 

09/000,A15/IMPURE 
-62 AND 7773 

.A24/IMPURE —. 

A24/IMPURE 


RIGHT 3.BITS.ARE.170.RELOCATION. 

BIT SEZ READ IN PROGRESS 

BIT.SEZ.WRITE-IN.PROGRESS. 

ADDRESS OF LAST BLOCK READ INTO 
WORD COUNT/AODRESS INITIAL VALUE 

SET BY IFSTART ROUTINE 


00004 

'WOW' 

00006 

. 0 00 07 

0 001 0 


0 0011 
W"0Y2T 
00013 
-043-14- 
0 00 15 
0 0016 
0 0017' 


14200000 
0 00G5 

Tomnnnnr 

03100236 

.0 0-7-0-04-7-7--- 

01000042 


ooaii 
20000000 
"0320 0014 " 
01377776 

-3-5-0-7-7-77-7- 
40 00 0 000 
14600701 
40 00 €0-0 2 


238 

239 

241 

242 

24'3 

244 

2-45------ 

246 

2 + 8 

249 

250 

251 

25 2 

-2-5-3 - 

254 

255 

256 

256+001 
256+ 002 
256+00 -3 
256+004 
_2-5-6+-W-5~ 
256+C06 
256+037 
256+008 
256+009 

257 


¥■ 

* SECTION TC START THE PDP8 DRIVER IF IT IS NOT BUSY 

* CALL WITH THE FOLLOWING SEQUENCE! 

* 


■* » * **-¥•***¥*■»■•* * 

* 

T flIKY * 


DINT 

* ENI 

-UJP- 

* 

**** **• * ***.#* 

CNTLEXIT ENI 
IFINIT EQU 

“...LOA . 

AZJ,NE 

-..-RID- 

UJP 


EQU 

LOA 

"AXJV'GE" 

UJP 

--3-S-A- 

STA 

ENA 

STA 

UJP 


RETURN,X2 
I F I H I T-- 


IMPURE,X2 
* 

'IFBUSY'"" 

UJP0X2 

-CONS- 

I FIN 


IFBUSY 
"*+2 
~ 1» X 3 

-.g iT2-3- 

IFBUSY 
PDPWCST 
POPW€A*0~ 
■I FI NT 


CHECK FOR.CURRENT.ACTIVITY. 

RETURN IF ALREADY SUSY 

-GO N N- E G-T-.TO--OE-V--I-GE.-.,. 

TRY INPUT BEFORE TRYING OUTPUT 


GET THE SUSY FLAG 
"SKIP'IF NOT SUSY 
RETURN AN ERROR IF SUSY 

SET.-8-US--Y—-B-I-7- 

AND RETURN TO STORAGE 
STARTING WORD COUNT/ADDRESS 
FOR STARTING THIS CRAZY THING 
AND FAKE AN £INTERRUPTS 


* 


--THE----F04-L-OW-I--NG---S-EG-T--I-ON—^IS—E-NT-E-R-ED--W-H-EN-EV-ER.T-HER-E.-I-S--A.P-BP-8 

EQUIPNENT INTERRUPT 






ENTER HERE ON DEVICE INTERRUPT 


00027 
0 0 0 3 Q 
00031 

00032 
00033 
.00034 


Q4 00 0QG0 
01000044 
04600(120 
01000042 
04000000 
"0T0WTT4' 


-^.ITOF 

00021 

.5T3mnnnr.. 

53 &U 0 G 0 0 

.. 2*615’ 

267 

.p r g _ 


* S^P ; 

TIA 

TAI 

"~X3 : 

X 2 




0 0 02 2 

77 73 0 00 0 

2 7 S 



VFD 

A12/DINT,A12/0 

SAFTY 

MEASURES 

o 

00023 

00700177 P 

27 7 



RTJ 

CONS 

CONNEC 

T TG IF 

0 0 U 2 4 

00025 

00026 

c 0 O u O u U O P 

03000G42 P 

0330 0125 P _.. 

.2/8. 

2 7 9 

27 9+0 

01. 


LOA 

A2J,EQ 
AZJ,LI 

rPStrST 

I FIN 

DUMPMODE 

CHECK 
WE IS 

FOR READ DESIRED IF NOT 

IN WHAT YOU CALL XOUMPMOQE* 

........;_.... U 



280 

281 

.28-2— 


if 



BUSY 




CHFLAG 


0 VF LAG 


IMPURE,0 
IFOUT 

I FIN 

IMPURE,0 
.rFERR". 


SKIP IF NO CH ERRORS 
CHANNEL INTERRUPT ERRORS 

—SKIP.IF" WRITE OPERATION 

LOCK FOR ANOTHER READ 
SKIP IF NO DEVICE ERRORS 


¥• » 

* THE LAST TRANSFER WAS COMPLETE. LOOK FOR MORE TO DO. * 

* - . V -- .. ■ . . ♦ 

•If 4*-* -¥■■>? W ¥***-¥* ** V-*** V *•* *¥■ V- * ¥**-¥■#**•{■-**»¥•*■**»*•»•¥ 


/“...'.00035 

00036 

0 0037 

.zowtrnr.p... 

47 00 0 111 P 
15477776 

.*....'.296. : .:.. 

297 

29 8 

~.”.LOA ~ 

ST I 

INA , S .... 

.FWA. 

FWA, 0 

. — ...1 ... 

. LOAD THE ADDRESS.OF THE.BLOCK.... 

CLEAR THE AODRESS 

0 0040 

14300006 

299 

ENI 

6 ,X3 

BLOCKS ARE 64 WORDS LONG 

00041 

00 77777 7 X 

300 

—.301—— 

RTJ 

FREEMEN 



00042 P 


IFIN 


O 


o 
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7 IFHNOLR 

PROCESS WRITE TO PDP8 




00042 

0 0043 

77200100 

01000143 

P 

303 

304 

305 


EXS 

UJP 

STRDREQ,SENSE 

READ 

CHECK FOR READ REQUEST 

JUMF IF SET 



<d 

0 0044 
00045 

54200111 

02600102 

P 

p 

30 6 
307 

IFOUT 

LDI 

IJD 

F WA,X 2 

IFOUT02,X2 

ATTEMPT TO TRANSFER TC PDP8 



® 

0 U u 4 o 

0 0 0 4 7 
00050 

141/7/77 

20 077777 

21 000047 

X 

X 

3 0 8 

309 

310 

MEQLOOP 

ENI 

LD A 

LDQ 

P0P80QL, XI 

3IT17 

8 IT 17 

ENlER LENGTHCF OUTPUT QUEUE 




0 0051 
00052 
. 0 0 05 3- 

06177777 
01000224 
20100051 

X 

p 

x. 

311 

312 

313 


MEQ 

UJP 

LD A 

PDP80Q,! 

IFRELS 

pnpfino.xi. 

LOCK FCR OUTPUT TRANSFER 



o 

U 0054 
00055 

53600000 
3620 0 00U 


314 

315 


TAI 

SCA 

X 2 

0 ,X2 

POINTER TO X2 

IS THIS THE ONLY BLOCK IN THIS 



(3 

U J U 5 b 

0 0057 
00060 

0 5 60 0 u01 
03200117 
2520 0 000 

p 

.316 

317 

318 

_USE6LK 

ASG 

AZJ,GE 
.LDAQ. 

CHECINFO 

Q.X2 

QUEUEIF IT IS NOT ORIF THIS 

IS THE SECONO TIME USE THE BLOCK 

LOAD POINTER AND WORD COUNT 




".. 00061." 

00062 

...„.0 Q 0 6 3. 

40 10 0 0 53. 

12000006 

0 3 30 0 067. 

.X....... 

.319. 

320 

.32l . 


Si A 

SHA 

AZJ,LT 

PQP80Q,X1 

6 

... X-FO-U-T-O-l.-.-.. 




O 

00064 

00065 

14600061 

53140000 

. . ... 

X 

„\f 

322 

323 


ENA 

AIA 

PDP80Q 

XI 




O 

U uubb 

00067 

0 007 0 

40100064 
5310 0 000 
12400014 

. 

32 4. 

325 

326 

r FOUT01 

ST A 

TIA 

SHQ 

P 0 P 8 O Q j X x 

XI 

12 

BLOCK LABEL TC A 

COUNT TO HIGH END OF Q 



““ .. 0 0 071. 

01072 

_...0 0 073.. 

13 00 0 014. 

40200001 

..1.5-20.00 01^ 


.327. 

328 

..329_ 


.SHAQ. 

ST A 

. I Ml ... 

TZ 

1»X2 

...1,X2_____ 

SAVE LABEL AND WORD COUNT 
..GENERATE.FIRST.WORD.ADDRESS.-.-.... 



O 

0 0 074 
00075 

47200111 

17600177 

. p ... 

33 0 
331 


SIX 

ANA 

FWA, X2 

1778 

FOR THE TRANSFER 

SAVE JUST THE LENGTH 




0 0076 " 1560 0003 ..3 32 - ; -IN*- 2~+-± -;-—-tW E" WORD" FOR'" THE "LABEL A NO ROU'N 0 


0 .... 

00077 

00100 

12077776 

53640000 


333 

33 4 


SHA 

IAI 

-1 

X 2 

TRUNCATE 

LWA TO X2 




. 00101 . 

00102 
..0010 3. 

.47200110. 

14200174 

P. 

P 

..335. 

336 

..33 7 ... 

IFOUT 02 

STI. 

ENI 

ISSUE. 

'.L NA:, X 2..... 

I FINCH,X2 

F NWREQ.. 

SAVE.THE.ADDRESS. 

ENTER REJECT ADDRESS 



o.: 

00105 

0 010 7 
—fl- 0 ±l- 0 ~ 
00111 

14600040 
1440 0020 
-76 00 0 00 0- 
00400000 
00111 


338 

339 

- — 340 " 

341 

“trW'A 

FWA 

Issue 

ENA,S 

OUT WjINT. 

EQU 

FNINT 8 

IFWRITE 

RELOCATION AND CONTROL BIT 



o. 

P 

I Of IMPoRii' f 1 fiPU 

LWA + l 





. 0 0112 

00113 

.'GTlWOTTfl'" 

01000172 

P. 

P 

.3 ¥2".~.* 

343 

.344 . 


OJP 

UJP 

"'*-2 . 

IFRETSX 




o 


00114 

P 

345 

346 

-“--—•3¥~7 

346 

349 

IFERR 

EQU 

* 




o .. 

0 0114 

7720 0100 



IJr 1 hb i j 

IF TEST, 
EXS 

COPY SENSE" " .... 

SLS 

STRDREQ,SENSE 





.0 0115. 

00116 
...00117 

0100 0X43"' 
0100 0 224 
20 20 0 €-01 

p .:. 

p 

-3 h 0 

35 i 
.. ’ ....35 2 

.. CHFCINF-Q. 

rap. 

UJP 

L 0 A 

.READ..... 

IFRELS 

. 1 ,.X2 .... . 

E XIT 

..L O A D.. XH E.WXJfiO C CU NT.. 



o 

0 0120 

00121 
n n -i. o o 

14700174 

03600060 

p 

v... „ 

353 

354 


ENQ 

AQJ,G£ 

62+62 

USE 8 LK 

IS THE BLOCK FULL 

USE THE BLOCK IF IT IS 

wQXXXA-tS 1 aO-STO - 1,1 C. , Lj A TI-JT A Ni Ki C fT - T Li *T 



O. . 

U U1 d d 
00123 

0 012 4 

.'c trtl U U a 1 4 

3410 0 0 66 
01000047 

A 

X 

P_ 

-,— 3 - 5.5 -—— 

356 

357 


L T J ft 

RAD 

UJP 

' d i 1 C. 0 . ...... 

POPSOQ,XI 

MEQLOOP 

KtilcrfotK Wtc HAt/x SLANNcu 1 Htl 

Dvi nruf CMPF 

LOOK FOR OTHER TRANSFERS______ 




..Q 0125 

00125 
. 1 . 2.0 0 . 0.0 01 ... 

P 

...357+0 01.. 

357+002 
_____35 7 + 003 

DUMPMODE 

EQU 

.SHA_ 

¥ 

j _...._________ 

..CHECK.FOR—EOF.FLAG.-.-.-......... 



O' . 

00126 

• 00127- 
00131 

0 013 3 

03300340 

0 0127 
- 14 60 0 0 0 2 

14600014 

13077717 

~P.”. 

P 

357+004 

357+005 

.- ..—.■--"35"7--H}-B'6“ 

357+007 

357+008 

DUMPMODI 

A2J,LT 

EQU 

T <*. V i i IT 

DUMPEOF 

¥ 

SEND OUT EOF IF ON 



Q 



- > il 

ISSUE 

SHAQ 

•^r'NKtccQ—. . .... . 

F NLOAO+FNLDWC 
-48 

btl-fcor rlKlIt 1 0 INI EKrAGt Kfcvl . 

SELECT LOADING ADDRESS/WGRD COUNT 
CLEAR A AND Q 




00134 
00135 
.00136. 

76 00 0 0 03 
00000002 
.01000134. 

P. 

P 

...R.... 

.“ 35 7 + 0(19 

.... . ....357+010- 


.OUTW. 

UJP ___ 

IO,PDrWCAD,PDPwCAu+1 

+ ntiTPtiT nnnppcc: TMnTr,flTn»<s 



cr . 

00137 

00140 

, IT n 4 /. A . 

77300006 
0100 0137 

7 7 T-* n ri- n o i « 

P 

357+011 

357+012 

J* C "7 a. n 4 *2 


INS 

UJP 

TKiC - 

6,SENSE 
*-l 

.. a ...ocMor. 

CHECK FOR READ/WRITE FINISHED 
INEFFICIENT BUT EFFECTIVE 



o...;, 

. . U UiTX 

00142 

( ( oUUiiul 

01000127 

P 

6 Y *T U 1 O 

357+014 

357+015 

¥ ¥* 4- ¥ 

1 IN Cl 

UJP 

UJP 

1 f c N b h 

D UMPMOD1 

READ 

CHECK ruK CHANNtL rAKIJY EKKUKS 

JUMF AND RE-TRANSHIT IF ERRORS 

AND READ A BLOCK FROM F 8 




o E 


Q, 

o* 
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IFHNDLR PROCESS READ FROM PDP 8 

. .. 






361 

.362 .—... 

¥ 

*. 

¥¥¥¥¥¥¥¥¥* 

. ( \PrTTflM.I 

•¥¥¥¥¥¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ * * ¥*¥ ¥ ¥ 

• n conr ccc per a n fP.np.fl 

¥ 

.to .i.^nn.*..:..*.. 


CD. 




36 3 

¥ 

¥ * ¥ -V- ¥ ¥ ¥ V- * 

¥ 


Cl 

G 0143 

0 0143 
14100145 

P 

P 

.365 ... 

366 

366+001 

READ 

EQU 

ENI 

* 

^ +2 , X 1 

RETURN ADDRESS 



..'.00144 

00145 

0 0146 

.0100 0 345 

21000000 

05500000 

.P... 

P 

366+002 

366+003 


UJP 

LQQ 

QSG . S 

GETSLOCK 

IF3USY 

... o. . 

AND GET A BLOCK T C READ INTO 

GET BUSY INDICATOR 

SKIP IF NOT * DUMPTNG*. 


O . 

00147 

00150 

15600001 

15600001 


366+005 

372 

-y ~7 ..*2 - . 


ina' 

INA 

1 

1 

OFFSET FOR LABEL LATER 


Cl . 

0 0151 
00152 
00153 

44 U0017U 
1560 00 77 
05 50 0 ooa 

P.. .... . 

37 o 

374 

374+001 


5 WA 

INA 

QSG,S 

I NFW A 

63 

0 

SET FWA . . 

READ 63 WORDS 

SKIP IF REGULAR MODE 



..0 015 4. 

00155 

.n n 1 5 6 . 

15477776 

44000167 

. ...i Ll9a] n O O 4 

P 

p.... 

.37 4+002. 

375 

. .377 ... 


“IN A 5 S. 

SWA 

FMT .. 

INLWA 

.T COST 1C - VO .. 

SHORTER BLOCK — BACKUP WORD CNT 

SET END ADDRESS 

.Re. j P O T.A 0 ORF F-S............. 


o 

00157 

00160 

JL T Ur L. i 

14604020 

05500000 


377+001 

377+002 


ENA 

QSG,S 

1 U VAu 

F NAL W+FNCLINT 

o 

ALLOW XFER AND CLEAR INTERRUPTS 


G _ 

0 0161 
00162 

0 0163 

14604040 

00700231 

14477777 

P 

3 / 7 + U 0 o 
377+004 
379 


ENA 

RTJ 

ENA, S 

F MINT B+ FNCLX NT 

SEL 

777778 

INTERRUPT IFDUMPING 

GO SELECT IT 

THIS IS A DEBUGGING TRAP 



...0 016 4 

0 0165 

;. 00166 

.54 30 017TT 

40300000 
.14 40.0.0-1-0- 

P ..... 

~38"0~.“.“.. 

381 

382 _ 


.EOT. . 

STA 

.EN A.S._ 

.INFW A, 3.“““ . 

0,3 

.IFREAD... 

.FIRST.WORD.ADDRESS...“““““. 

PREVENT NC WORDS TO BE READ 
.RELOCATION.AND.CONTROL.-.. 


O “ 

00167 

00170 

74000000 
00 40 0 000 


383 

**,.. , 

I NE W A 

INP W jI NT 

***** 

I0,IMPURE,IMPURE 

mWwTwlk. i I It*, I «i mmmmw V, , 



O .... 

00171 

00172 

0 017 0 
01000167 
44000000 

i 

p 

p 

3o 4 

385 

385+001 

INF WA 

IFRETSX 

EQU 

UJP 

SWA 

INlWA +1 

*-2 

IFBUSY 

SET THE BUSY FLAG 



..011173"“ 

nmnnnnnr 


.387 

388 

38 9 

“TFKET 

“““UJP “ 

IMPURE 



O 


00174 

p 

390 

391 

I FINCH 

EQU 

IF TEST, 

¥ 

COPY SENSE 



O .. 

00174 

00175 

77200x00 

01000143 

p 

3 9 2 

393 

394 


' IF.TEST». 

EXS 

UJP 

SL 6 

STRQREQ,SENSE 

READ 

CHECK FOR READ REQUEST 



..0 0176. 

.01-0 0.0-2-2-4- 

-R... 

“395. 

396 

397 .-. 

.... 

¥ ■ 

-UUP—- 

—X-PREES—--— --— 

“"“WRITE' REQUEST FUNCTION WAS REJECT. 

FOR AN UNKNOWN REASON. 

-DO.NOT.CLEAR.RE-AO.REG.INTERRUPT---. 



o 

o 

o 

Qa 

cf 

10 

o 9 


o 


o 
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I IFHNOLR i 

******** ¥ * ****¥*¥• 


CONNECT AND SELECT ROUTINE 


*¥ ¥¥* V ¥ ¥ * ¥ ¥¥¥¥¥¥ 


-*—----CONNECT ROUTINE-----------.-------..*- 

* * 

* ENTER WITH THE FOLLOWING SEQUENCE! * 

* RTJ CONS * 

* * 

¥ ** ¥ * ¥ ¥* *■¥*¥ ¥¥*¥¥ ¥¥¥¥¥¥¥¥ ¥¥¥*¥**¥¥* *¥¥¥*¥¥*¥¥¥¥¥¥¥¥¥¥*¥¥¥ ¥¥ ¥¥ *¥¥¥** 


.00177. 

0 020 0 
0 020 1 
0 020 2 
00203 
00204 
0 02 0 5 


0 020 6 
00207 
0 0210 
00212 
0 021 . 3 . 

00214 
0 0215 
0 0216 


0 0217 
00220 
0 0221 ’ 
00222 


00224 
0 022 5“ 
00226 


01 00 0 0 0 o. 

1410 0 000 
14702114 
14300202 
01077777 
00700246 
. 0120 0 0 00 . 


47200173 
142U0214 
14 60-54O5‘ 
77200001 
01000177 

.0 0 2'I'4“ 

24077777 

37.0A0-O-0-i]. 

40000000 


14100764 
77 10 6 0 0 G 
"02500520’' 
77100600 

.0 2500222. 

00224 

47000000 

54200173 

01077777 


CONS 

IFCCN 


424+001 

-42 4+0 0 2. 

424+003 
425 
42 6 
427 


SHEWS 


CHANNELCCHFLETICN.COMMAND 

CHANNEL BUSY RETURN 


UJ-P--IMPURE----ROUTINE TO CONNECT TO IF — 

ENI IMPURE,XI CONNECT CODE 

ENQ 1100 CHANNEL TIME LIMIT 

"ENT--— * 4 X 3—-—---— -—--— “ 

UJP CONNECT 

RTJ.._C HAN I NT. ..CHANNEL COMPLETION COMMAND 

UJP 0 ,X2 CHANNEL 8USY RETURN 

IF TEST, COPY SENSE 

IF TEST, TAM - 3-1 B.....-.- ----— - - 

STI I FRET,X2 SAVE RETURN ADDRESS 

ENI SHEWS,X2 REJECT RETURN 

ISS U E.-. (F NI N T + F N IE O C + F N C LI NT ). . 

EXS READY,SENSE CHECK FOR READY 

UJP CONS RETURN 

T3T . IF.NOT.READY . 

LCA 8IT2322 MASK FOR CLEARING 

-LEA--IF 8 USY._.—----CLEAR.THE-FOUMP-.MODE*.FLAG. 

STA IF3USY AND RETURN TO STORAGE 

IF TEST, COPY SENSE 
“IP “TES'Tv SLS. 

ENI 500,XI COUNT FOR REJECT 

SEE FNRIEN+FNCLI NT, SELECT 

TJD ^-17X1... ....... ...’.’.~. : . 

SEL FNENINT+FNINT,SELECT INTERRUPT WHEN READY AND 

IJa-- 5-i, Xl ----ENABLE POPS- INTERRUPT.-. 


IFBUSY,0 
~I-FR&TtX-2~ 
UNCON 


LOAD -RETURN ADDRESS 
AND RELEASE CHANNEL 


****** **■* ***** ************ * * ** ******* *****¥- 

* • 

* SELECT ROUTINE 

* 

p0 UL O WIN G“''^'S E NO E *.. . 

* 

* ENI REJECT ADDRESS,X2 

' T ” “ETTA FUNCTION.:.:. 

* RTJ SEL 

_¥_;_____ _ _ _ _ _ _ _ _ __ _ __ 

**** ***************** * * * * ********* *******************: 


• ******* *** **** ****** 
. * 


0 022 7 
0 0 230 
00231 
0 0232 
00233 
0 023 4- 


U 

00236 
0 0237 


77100000 
01000234 
01000008 
’44 00’G'227' 
14100005 
....0.250-0-22-7- 


7720 0 Q 01 
01200000 
’'0r0’0’0'21'4.p- 


I 5tt*P 


UJP 0X2 


•SEL — • "'IMPURE, SELECT" 
UJP REJ 

UJP IMPURE 

"SWAT rSDF 

ENI 5,XI 

I JO____ISUFjXl---._ 

IF TEST, COPY SENSE 


-IF—TE5-T“r 
EXS 
UJP 

“trap- 


“SLS'—-- 

READY,SENSE 
0 ,X2 


ISSUE FUNCTION 

ROUTINE TO ISSUE FUNCTIONS 
"SAVE THE FUNCTION 
ALLOW 5 REJECTS 


CHECK FOR READY 
RETURN TG REJECT ADDRESS 
TH'E’TBTS .SCREWED.UP.AGAIN’ 


o 
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IFHNOLR 


CHANNEL INTERRUPT PROCESSING 


G 


00240 
00241 
00242 
0 0243 
0 0 244 
00245 
0 0246 

00247. 

0 025 0 
00251 
0 0252 
0 0 253 
0 0254 
00255 
0 0256 

00257. 

0 026 0 

. 0 0261 

00262 
0 0 263 
0 0264 
00265 
00266 
0 0267 

0 0 270 

00271 
0 0 27-2- 
00273 
00274 
90275 
0 0276 
0 0277 
0 0300 
00301 


00240 P 


20000000 

. 04-60-0 010 . 

01000246 
470G 0 000 
“7-71*0'0-1-40- 
0120 0 000 
01 00 0 000 

T400T027. 

54200246 
-03409-290 
77100 200 
0120 0000 
7720 0 00 0" 
17604400 
44000033 
'¥3"1I)¥2W 
21000000 

-04 790 010. 

01200Q00 
5430 00 01 
■20 309 0 01 
47200414 
05500000 

T199"0T05. 

0 0 270 

4397.7763. 

0 0 271 
54200414 

"5-3-5-9-0999- 
05100003 
01 100302 
'WI7T777"' 
20177777 
05 10 0 27 5 
03277777 
00 000 414 


* + ■> 4 * >1- -?■ ****** * *W*W*~* y-* W ¥*• V-V- »-»-¥■ Jf » ^ -V^ ♦ 

* 

. -. CHAN NE L .I NT ERRU PT PR0 CESS0R.jw&..* 

THIS ROUTINE CHECKS FOR ERRORS AND DOES ERROR RECOVERY * 

• PROCEDURES IF NEEDED. IF THERE- WERE NO ERRORS THIS ROUTINE * 

WILL BRANCH TO THE PROPER ROUTINE DEPENDING UPON THE BLOCK * 

LABEL. ON CALLS TO PROCESSING ROUTINES X3 CONTAINS THE * 

.*.BLOCK ADDRESS 5 .Q CONTAINS.THE.BYTE.COUNT.IN.BITS. 23-12? . * 

X2 AND IFEXIT CONTAIN THE RETURN ADDRESS? AND ON NON-STANDARD * 
-----.BLOCKS.THE.MACRO-.CONTROL.BLOCK-A-BD-RESS.IS.IN.A.- - .*- 








477 

478 

479 

480 . 

431 

-4-8-2.- 

483 

484 

-484+001 

484+002 

486 

■'"487. 

488 

-4 69.—-— 

489+001 
489+002 

491 

492 

493 
~9'9Tp 

494+001 

...4.99-+-9-0-2- 


CHERRORS 


C HANINT 


499+001 
499+002 
4'9'9 + G 03”" 
499+004 

-5-99-. 

.50 0+001 
500+002 
5 0 2 
503 
50 4 
'W5 
506 

-BO-7-- 

508 
5 n Q 


OUMPFAKX 

"OUMPFAKE 


EQU 

IF TEST, 
IF TEST," 

LDA 

-A-SE--.-. 

UJP 

STI 

SEL 

UJP 

.HUE.. 

SWA 

LOI 

-AZJ-,-Ni. 

SEL 

UJP 

-OOR-Y——- 

ANA 

SWA 

LDQ' 

-QS-E. 

UJP 

LDI 

LDA 

STI 

Q.SG, S 

'UJP. 

EQU 

-SH-A-G-.-.. 

EQU 


* 

COPY SENSE 

SLS .. 

IF3USY 

—IFRE AD- .. 

CHANINT 
IF3USY,0 

NTNT8+F NRER RSE LE C T 
0 ,X2 

.IMPURE....... 

CHFLAG 
CHANINT,X2 

CHERRORS ..-----. 

FNENINT,SELECT 
0 ,X2 

s-mse 

STRSERR+ST AS INT 
DVFLAG 

.C’hsntnt.. 

IF8USY 

—I-FRE-AD.. 

0 ,X2 

POP8BLK,X3 
1»X3 

IFEXIT,X2 

n 


A2J,GE 

HLT 


rOMFlN'CR'"' 


IFEXIT,X2 

S T ANTABL,XI 
STANTAB,XI 

"PDP"8TQ'C,""XT.- 

PDP8IQ,XI 

.P-DP-8-I-QL-,-Xi. 

H SI NIP 
IFEXIT 


CHECK FOR TYPE OF OPERATION 

REDO.BAD WRITES. 

FORGET BAD READS 

’ INTERRUPT ANC SET RESPONSE ERR 
JUMP AND EXIT IF REJECTED 

.ROUTINE.ENTER E.D.ON.CH.CO KPLETICN 

SAVE CHANNEL ERRORS 
REJECT ADDRESS 

-JUMP- - OFF.IF.ERR-OR-S.-. 

ENABLE INTERRUPT CN EOF 
EXIT IF REJECT 
GET STATUS 

SAVE ERRORS FOR LATER 

"D017T PROCESS" . If ."ABN0RMAL. 

GET BUSY FLAG - 

S K-IP IF PRO C ES -SI N G A READ I-NP U T- 

EXIT IF A WRITE 
LOAD THE BLOCK ADDRESS 
LOAD THE -FIRST-WORD-“TRA1tSPER'E'0““— 
SAVE THE RETURN ADDRESS 
SKIP IF NOT DUMPING 
.GO.TNCREASE'"AD"ffR£SS".AN"D.PA'SSGN. 


.LEAVE.LABEL-.IN 


-SAVE.WC.IN.G 


RESTORE POSSIBLY DAMAGED RETURN 
LABEL TO XI 

IS THIS NORMAL RUN GF THE MILL 
DATA DECODE IT IF SO 

'PREVENT.N"0"N-EXTST~A"NT.MEMORY.REF 

LOAD CONTROL BLCCK ADDRESS FOR 

NON-STANDARD STUFF .-. 

UNPACK THE BLOCK 
BAD BLCCK LABEL 


00302 

00303' 

00304 


00302 P 

.0Q"3B 2.F 

01000475 P 

.0-0 3-0-3 .P 

01000415 F 
00304 P 
0100 0 36m- P 
0 0 0 0 3 


STANTAB EQU 

...0R"GRT 

UJP 

... OR6R- 

UJP 

ORGR 

yjp 

STANTA8L EQU 


^rmTABTWKim . 

IFECHO 

-S-T-A NT-A 8-+C O NT- RG L- 
ITTC 

STANTA8+TTYDATA 

ITTO 

*-STANTAB 


MAINTENANCE 

Teletype.turn.on7off" 

teletype data 


o 
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0 0 30 5 

0 0 305 
14200314 

P 

P 

519+003 

519+004 

. 5 1 q + fi n 6 . 

DUMPINCR 

EGO 

ENI 


a 0 3 0 6 

0 0306 
14177777 

P 

X 

519+006 

519+007 

3L0CKCHK 

EQU 

ENI 

Cl , 

0 0 307. 

00310 

00311 

20100276 
53 50 0 0 00 
20100024 

^ x.. ^ 

519+0 08 
519+009 
519+010 


LQA 

TAI 

.LDA 


.0 0312 

00 313 

03 20 Q410 
01200000 

p 

519+011 
519+012 
..51-9+013 


AZJ 5 GE 
UJP 

O . 

0 0314 

0 0314 
20 00 00 02 

P 

P 

519+014 

519+015 

DUMPING 1 

EQU 

LQA 

o. 

0 0 315 

0 0 316 
00317 

14 70 0 000 
13000014 
12000014 


519+B16 

519+017 

519+018 


cNQ 

SHAQ 

SHA 


0 0 320 

0 0321 

.00322. 

15 700174 
17707777 
.Q57Q 0174 


519+019 

519+020 

...51-9+0-21-- - 


INQ 

ANQ 

o 

0 0 323 
00324 

15601000 

05700174 


519+022 

519+023 


INA 

QSG 

o. 

u 0 32 5 
00326 

0 0 32 7 

.147 U U 0 OtT" 

05677777 

01000333 

X 

p 

.. .. ‘>19+ 0 24 

519+025 

519+026 


ENQ'. 

ASG 

UJP 


0 033 0 . 

00331 

.... . Q 0332. 

.20077777. 

34000U00 
^01-00-0 33-6 

X 

p 

...p.. 

519+Q27 
519+028 

.... -5-1-9+-3-2-9. 


TDT. 

RAD 

.yjp..... 

o 

0 0 333 

0 0 333 
12000014 

p 

519+030 

519+031 

NOTEOF 

EQU 

3H A 

o._ 

0 0 jot 

00335 

16 000014 
41 00 00B2 
00336 

p 

p 

' . b 19 + 0 b 2 ‘ 

518+033 
319+ 0 34. 

EOFOUT 

Sil A U 
SIQ 

EQU 


00336 

0 0 337 

“ZTrmnnnrr' 

0100027Q 

p 

p 

5194035 

519+036 

.. 


LDA 

UJP 

o — 

0 0 340 

.. n n „ -y /, 4 ■ 

0 0 340 
54200173 

~p.’. 

p 

...p... 

519+038 

519+039 

* . , „ ..jET 4 - >. g*t . 

o'UMPEOF 

~EQU. 

LOI 

o.. 

Ll U sj H 

00342 

00343 

4 r Z b u414 
1420034A 
01000226 

p 

X 

>18+040 
519+041 

.... 519+_P_42_ 


h i I 

ENI 

UJP 


0 0344 

1410 0 354 

...0 0 345. 

p 

...p,. 

51S+043 

519+044 

....519 + 645.... 

.G ETBLOCK 

TENT.“. 

...E.Q.U--. 

O . 

0 0 345 
00346 

n n it 7 

20 00 00-01 
14300006 

p 

51 9+046 
519+047 

, ... .. £T,4 ri.jL.rj /*.. 


LDA 

ENI 

«,a l*' r 

o 

U U OH f 

00350 

00351 

tobuuUUl 
00 777777 
53700000 

X 

t? 1 9+ UHG 

519 + O' 4 9 
51 9+050 


A 13 

RTJ 

TAI. 


.0 0 35 2. 

0 0 353 

. 4~4'0Q"0"0"0T" 

0110 S 000 

p 

5194051 

5i9+052 
. 5x9+053 


SHA 

UJP 

o 

q a _ 

0 0354 

. 00355 “ 

00356 

0 0357 

0 0 354 
14200356 
010003-06 
24000214 
37 00 0 0 00 

p 

p 

u 

X 

p 

519+054 

519+055 

. 51-9+-0 56-- 

519+057 
519+058 

OUMPEOF1 

"EQU 

ENI 

“UJP 

LCA 

LPA 


*. ~T . Q 0 36 G. 

0 0 361 
_...0 0362 

. 40'OOT'00'0 . 

145003G6 
.14 70 0 0 0Q 

p 

X ■■ 

.. ~5T9+”01?9~~ 

519+060 

........._ 


' ST A 

ENA 

...ENQ_ 

a ! . 

0 0363 

0100 0271 

p 

519+062 


UJP 


o, 

o 8 


o, 

o 5 


o 


ONLINE DUMP PROCESSING 


DUMPINC1? X2 RETURN ADDRESS 

D UHPLABL j XI WE MUST SEE IF THE BLOCK 

P0P8IG, XI ~~~~ WIL LBE ACCEPTED SEFORE 

XI INCREMENTING THE ADDRESS. 

EXPOATAjXl JUST READ IT AGAIN IF NOT 

I FEND SAVE HE ADACHES IF NOT ACCEPT ABLE 

0,X2 RETURN TO CALLER 


PDPWCAO GET THE WORD 

~Q ———- “CEE A R I T~ 

12 ADDRESS TO Q 

12 AC(Q-il)=£XT.ADO+WC Q(0-11)=ADDR 

" 124 .... INCREASE.POINTER. 

77778 MASK TO 4K FIELD LENGTH 

—1-2-4 ...-.-SKIP -TO.TEST.FOR.END.OF. FIELD . 

10008 INCREASE FIELD ADDRESS 

124 CHECK TO SEE IF TO RESET CNTR 

”0“-----—-- —SET*"TO ZERO Ip-S'C— * 

MAX 8 FLD SKIP IF OVER THE TOP ADDRESS 

NOTEOF JUMP IF NOT AN END OF FILE 

BTT22" “ GET THE EOF IN PROCESS' FLAG . 

IF 3 USY AND SET FOR NEXT ENTRY 

. EOFOUT--—EXIF- IF EC-F — --- 

•* 

12 UP TO TOP OF A FOR REPACK 

“IB———■—D PACK INTO "-A—~~~ 

PDPWCAD AMD SAVE NEW ADDRESS/WORDCNT 

* 

TUNPCTB . .TH¥N USE THE OUhF ING LABEL. 

DUMPFAKX AND JUMP BACK TO SEND IT 


IFRET > X2 RESTORE THE RETURN ADDRESS 

IFEXIT > X2 .. SAVE RETURN ADDRESS 

*+2,X2 RETURN ADDRESS 

UNCON AND RELEASE/UNCCNNECT FROM CHAN 

TJDPTPEIJFT7XI .RET O R ¥T ADDRESS ' ... ...^. 

.... .„ . . ....'. 

PDP88LK GET POSSIBLE CURRENT BLOCK 

6 »X3 SAY A 64 WORD BLOCK 

1. SKIP IF BLOCK EXISTS 

GETMEM GET 4 BLOCK IF ONE ODES NOT EXIST 

v -« pi npk* unnsF’s'; t r y 

PDP88LK " mO SAVE BLOCK ADDRESS FOR LATER 

0,X1 RETURN TO CALLER 


*+2»X2 RETURN ADDRESS 

8L0CKCHK .SEE IF IT WIlL 6E ACCEPTED 

8ITZ322 CLEARING MASK 

IF8USY CLEAR CONDITIONS 

.IF3USY..■ AND RESTORE THE 'WORD.. ~.. 

DUMPLABL LABEL FOR DUMP BLOCKS 

-0------ZERO.FOR.EOF---.-.1.. 

DUMPFAKE AND SEND THE £ LCC K TO MGVEBUFF 
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IFHMDLR 


TTY INPUT DATA UNFACKING 


(D 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

q s 

d 5 


o 9 

o 8 

o 4 

o 5 

D, 



i o ; 




523 
52 4 

52 5 

526 

527 

528 

529 

53 0 
531 

■ 532. 

533 

534 

535 

536 


¥¥¥¥ W «¥¥¥ ¥ »»** 


.CD 


•f 

¥ 

* 

* 

* 

T 

* 

¥ 

~¥- 

¥ 


■THIS.SECTION.UNPACKS TTY.INPUT.BLOCKS---.-.-.■.-. 

TTY INPUT DATA IS SENT UP PACKED IN THE FOLLOWING FORMAT 


LABEL 
TTY NUM 
TTY.NUN 


TTY NUM 
TTY NUM 


BYTE COUNT 

CHAR 

CHAR 


CHAR 

—CHAR 


SYTE-'CO U nt'—/--2“*GF THESE 


. * . 

¥ 

¥ 

.¥. 

¥ 

¥ 

¥. 

¥ 
¥ . 


~¥~ 

¥ 


“0'036"4*" 

00365 


00364 P 
54277777 X 
20277777 


539 

541 

542 
-543" 

544 


¥ ¥ 

Jt3t ¥¥.¥..¥.¥*.¥¥ *¥¥.¥¥.¥ .¥¥.¥-¥¥.¥¥.¥¥¥.¥.¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥-* ¥¥¥¥¥¥¥ ¥.¥¥¥¥ ¥ ¥¥¥¥*.¥¥¥¥¥¥¥¥¥.¥¥¥¥¥. 


ITT D 


EOU 

LOT" 

LDA 


P S AS L Kj~X'2 


*CO A 0“P OT NTER T C P HA N T G - 

HAKE SURE THE SYSTEM HAS BEEN 


00370 

00371. 

00372 
0 0 373 
0 0 374 
00375 
00376 
0 0377 
0040 0 

.00401 

0 0402 
0 0 403 
0 0 40 4 
0 0405 
0 0406 

40407. 

0 0 410 
00411 
00412 
0 0 413 
00414 


03300410 P 

.1.5304041. 

47300377 P 
13000013 
42002033 P 
1420 0 Q 00 
01000406 P 

.24204444' 

13077763 

.53540404. 

47200405 
05177777 
00700534 
14200000 
10200000 

.0100 0 377 

143GGO 0 6 

...20440441.P 

47000001 P 
00700041 X 
01000000 


0 0 40'S 3 


P~ 


547 

.-544. 
545 
55 0 

551 

552 

553 

w 

555 

-5-5-6- 

55 7 

558 

559 

56 0 
561 
56 2 
5o 3 

-564. 

565 

566 
56? 


IffOT 


AZJ,LT 
-INI" 
STI 
SHAGS 
■SACH 
ENI 
UJP 
TtTff 
SHAQ 
TAI-- 


END IN 
I FEND 


IFEX IT 


STI 
ISG 
-R-Ttr- 
ENI 
ISI 
UTP~ 
ENI 
--LQ-A— 
ST I 
RTJ 
~tWP“ 


IFEND 

1»X3. 

LOOK,X3 
11 

E ND I N+3.. 

0 »X2 
ENOIN 
I MPURE,' X2 
-12 
8 LK 


¥ +3,X 2 
TTNUM, 8 LK 
'TTTNf*— 
IMPURE,X2 
IM P U R E , X2 


IGNORE THE DATA 

IGNORE.THE.POINTER.WORD. 

SAVE THE BLOCK ADDRESS 

WORD COUNT TO A 

SAVE.NUMBER.OF CHARACTERS. 


LOAD. AWORD .FROM THE BLOCK 

SHIFT DOWN FOR TTY NUMBER 

SKIP IF A PDF 8 ERROR 


.TOW 

6 ,X3 

-PDP 8 8 LK- 

PDP 88 LK,0 
FREEMEM 



53 7 

¥ 

THIS SECTION CHECKS THAT THE TTY 

NUM IS A LEGAL 

TTY 

NUMBER 

¥ 


...538 

. .. ¥ . 

“THEN.CALLS.TTTNP TO DO. THEACTUAt 

. PROCESSING OF 

THE 

DATA 

¥ 



0 0366 

15477753 

545 

INA,S 

-20 

RUNNING 

AT 

LEAST 20 SECONDS 



.04367. 

. 04244404 . . 

54 8 

.ISE. 

.Q , X2... 

'SKIP IF 

NO 

PHANTOM 



9 o 

bO 

6 

o 

O l 

uO 


... z i 


O 


o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 
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IFHNDLR 


TTY CONTROL INFORMATION 


Airww ******* *¥■* ****** »*'■»•» **'*'* ***** *T»T*T*W»'¥'»W*'*>*#W***Wi ♦ * 


THI S.SECT ION PROCESSES.TTY CONTROL INFORMATION SENT FROM THE 

Pl)P8 TO THE 33 00. 

TTY CONTROL INFORMATION IS PACKED IN THE“F0tLOWINGFORMAT 


LABEL 

BYTE 

BYTE 


BYTE- 

BYTE 


BYTE COUNT 

BYTE 

BYTE 


BYTE 

BYTE 


BYTE COUNT / 2 OF THESE 


IN BITS.1Q- 0 0 OF EACH BY TE I S A NUMBER..IF.THE TERMIN AL 

ASSOCIATED WITH THAT NUMBER IS A TTY THE SIGN BIT ON THE 

. BYTE-.IS USED TO.SAY...-...-. 

IF SET TURN OFF (SET IFWAIT) 

IF CLEAR TURN ON (CLEAR IFWAIT) 


IF THE TERMINAL NUMBER IS NOT A TTY THE BYTE IS ASSUMED TO 
BE CONTROL INFORMATION FOR SOME HIGH SPEED DEVICE (PAPER 

.TAPE.EQUIPMENT.OR.200.UWSl.AND.THE.BYTE.IS DECODED USING' 

PDP8CQ. PDP8CQ IS BUILD BY IFSTART DURING INITIALIZATION. 


* **** ** ** *** V- * ** *■ 


****** 


GO 415 
00416 
0 0417 
0 0 420 
...0.0 421^ 
00422 
0 042 3 
-tl-0*4'2*4* 


. 00415 

20000473 
40 Q0 0474 
-4T30"0'43'0'“ 
142G0002 

.-13 0 - 0-0 014. 

17600177 
53 50 00 00 
Q100 6471 


■TTTC' 


ENI 

-SHfi-Q- 

ANA 

TAI 

UJP 


BITS 

ITTCFLAG 

TTTCTBrK7X3“ 

2 } X2 

- 1-2 --- 

1778 

Y 1 

-eeNt 9 -. 


SET UP THE SSh FLAG 

'SAVE.TH E.E LOCK.ADDRESS; .“ 

POINT TO THE FIRST DATA WORD 
-COUNT—TO A-: — 

WE JUST WANT THE COUNT 

-JUMP.-T-e-END : Cp-LCCF 


o 

00425 

00426 

14600000 

10000474 

P 

600 

60 9 

ITT CO2 

ENA 

SSH 

IMPURE 

ITTCFLAG 


ENTER THE CHARACTER 




.’. 0 0427" 

00430 

0 0 431 

01000434 
2 0 20 0-GOO 
1520 An oi 

"'•p.. 

. : . 61 0 .. 

^ 611 
■ 612 

ITT.CBLK 

.ujp.. 

LOA 

. ini. 

""TTTC"0'4.. 

IMPURE, X2 
- 1 , X2. 


.JUMP IF WE REALTY HAVE T 

LOAD THE y>CRD FROM THE 8 

HE CHAR 

LOCK 


o 

00432 

0 0 433 

440Q0425 
12 077763 


613 

614 


SWA 

SHA 

ITTC02 

-12 


SAVE THE LOW CHARACTER 



o. 

00434 

0 0 435 

0 0 4-34 
53 7G 0000 
17 30 3-777 


' ' ' "61b 

616 

61? 

ill G 0 4 

LU.U 

TAI 

ANI 

X 3 

37778,X3 






0 0 4 3 6 
00437 
00440 

13 0 (77 b 6 
05300403 

Gi00 0 442 

y 

A 

0 

. STB . 

619 

62 0 ■ 


■SHAG 
' ISG 

.. UJP.-. 

. -"'12 .... 

TTNUM,X3 
-*• +1 ... 





o 

00441 

0 0 442 

n n /. /. 7 . 

01000471 

20300364 

■i o .ft r-i n fs ft:, 

p 

3 

621 

62 2 


UJP 

LOA 

12 . 1 \ 

CENP 

PSABLK, X3 


FORGET IF TOC LARGE 



Ct. 

U U4 4 \) 

0 0 444 

0 0 445 

' XX UU If tiUH 

Go 20 0455 
47100452 

p 

P 

b b 3 

62 4 

625 


SnA 

AZJ,GE 

STI 

ITTC05 

ITTCX 1 ,XI 


lb ! fit Uc v lit A ! 1 “ 

JUMP IF IT IS 




00446. 

0 0 44 7 

0 045 Q 

47 20 0 4.53 
14200452 

0 5377 777 

.P.■. 

P 

X 

6 ' 2 6 ' 
o & 7 

62 3 


.STI. 

ENI 

ISG 

ITTCX2,X2. 

ITTCX1,X2 
PDP. 8 C.QL, X 3. 


ENTER THE RETURN ADDRESS 
..SKIP IF.GARBAGE .. 



0 s ~~ 

0 0 451 

-0 045 2 
00453 
.Q0454 

01377777 

14100000 

14200000 

01000471 

X 

629 

630 

T T X r* V’ '4 

UJP 

PDP 8 CQ,X3 

~IMPURE,XI- 

IMPURE,X2 
.CENP 


START THE OUTPUT DEVICE 



1 

o 9 _. 

P 

. 0 0 i 

632 

633 

1 1 ' { LaI 

ITTCX2 

■ ■ C.N JL 

ENI 

UJP 






0 0 455 

0 0 455 
12QQ 0024 

P 

. g-jTj- 

635 

6 3 6 

ITTC05 

EQU 

SHA 

* 

2 4-4 





O-. 

CX. 

0 0 456 

0 0 457 

0 046 0 - 
0 0 461 
00462 

0 4 600 000 
054U 0 000 
01-00 0 471- 
53700000 
05500000 

P 

637 

63 fi 

640 

641 


ASE 

A3G,S 

-UJP— 

TAI 

QSG, S 

Q 

0 

— 6 -ENP—— 

PSA 

0 


skip if nc psa Present 
skip if not .logon/logoff 

—I&NGRE-TH-E-REQUES-T... 

.SKIP IF.TURN GN 

STATUS 



~T3'0"46r3. 

0 0 464 
00465 

~ 0100 04-67 
14477777 

0 0 777777 

.P. ~~~ 

X 

x ..._:. 

~~..64 2. 

643 

...644 .. 


'UJP 

ENA , S 

RTJ ...._ 

TTOFF 

NOUTSMD 

I.OC LEAR... 


. CLEAR.WAIT.fill______ 



O 3- 

0 0466 

01000471 

0 0 467 

p 

p 

v . .- 

645 

646 

,. „ v . K ... , TO1 . UT ,. r /, *7 

ITOFF 

UJP 

EQU 

CENP 

* 

I.X 2 S-A -1 i K) r> -7 





Q,... 

U U 40 r 

00470 

1 4 4 -1 ( ( i f 
00 777777 

A ' 

X 

648 


RTJ 

U U 1 t>U uN'd 
IOSET 


STOP THIS GUY 
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1FHNDLR 


TTY CONTROL INFORMATION 


0 ) 

CD 


O 

o 

o 

o 


00471..0250 0425.p 

00472 01000410 P 


00473 52525252 

0 0 474 00 00 0 000 


649 . 

650 

651 

652 

653 


CENT 


IJD 

UJP 


BITS OCT 

ITTCFLAG VFD 


ITTCa2,Xl 
I FEND 


52525252 
A 24/IMPURE 


.<3 


,0 


O 


; o 


o 


, 0 t 


o 


I 


a 


o 


o 

o 


o 


o 


o 

o 

o 

Q, 


O 

o 

o 

o 


o 

o 
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IFHNOLR 


MAINTENANCE 


AND 


CONTROL INFORMATION TO 


: jyl if. if. Jf. if K y. A 1 V "Jf'jp# & v* * if. & y ^ A* * V- ¥# ## # * V *f ^ -W V Ar J <r # V 


* 

\dSf. 


THE FO LLGWING SECTION IS USED TO C H ECK MAIN TENANCE INFORMATION * 
SHIPPED BETWEEN THE PDP8 AND THE 3300 . MAINTENANCE BLOCKS ARE * 
BLOCKS OF DATA THAT CONTAIN THE SAME BIT FATTERN IN EACH 12 BIT* 

.BYTE. THEY ARE INITIATED BY A PDF8 CONSOLE COMMAND AND * 

ARE USED TO CHECK INTERFARCE RELIABILITY WHEN THE SYSTEM * 

IS RUNNING. ALL THIS CODE DOES IS CHECK THAT ALL 24 BIT WORDS * 

~ ARE THE.SAME AND IF.NOT' IT HALTS. MAINTENANCE INFORMATION .* 

SHOULD NOT BE SENT ANYTIME USERS ARE ON BECAUSE THE INCREASE * 

-IN.JOB TI ME DUE.TO CYCLE ST EALING.AND INTERRUPT.PROCESSING -* 

MAY PASS 30%. * 

♦ 


00475 
00476 
GO 47 7 
0 050 0 
0 0501 
0 0 50*2 
0 Q 50 3 
00504 

.0 0 505 

00506 

. 0 0507. 

0 0510 
0 0511 
0 0512 
0 0513 
0 0514 

.00515 

00516 
0 0517 - 
0 0 520 


00475 P 
20100123 X 
12000006 

03 30 0440.P. 

47 00 0:0 01 P 
53 30 OH 0 0 
14 70 04 7 4 
45300000 
35000050 X 

W51T1J47S.X 

15600002 
-44-00-0-54-2—P 
44000513 P 
14100075 
-20 00 0 0 00 • - 
36100000 
04677777 

"0440UWO. 

00000520 P 

.02 5 0-0 542.P. 

01000005 P 


IFECHO 


IFECQt" 

IFEC02 


EQU 

LDA 

SHA 

A ZJ, LI¬ 
ST I 
riA 

ENQ—~ 

STAG 

SSA 

.ST A,.I. 

INA 

-SWA-.:.- 

SWA 

ENI 

“EDA— 

SCA 

ASE 

ASETS. 

HLT 

I-JO- 

UJP 


ir 

P0P80Q,XI 
6 

.-I-FENQ. 

PDP 88 LK,0 
X 3 

0 ,X3 
8IT17 

PDPSQQjXl. 

2 

-I FEC-Qi—. 

IFEC02 
61, XI 

IMPURE 
IMPURE, XI 
77777B 

'"0 ."" 

* + 2 

-I.FEa04,-X4- 
IFINIT 


CHECK FOR.ONLY.i BLOCK 

IG NOR-E IF ALREAC-Y A B40C K.- 

BLOCK ADDRESS TO A 

RESET"THE WORD COUNT 

STORE THE POINTER AND THE COUNT 


* 


• ¥*■ ¥* AMf ¥**■¥*•* 


THE"'TCXUO'Rl'NG~SE’CTTOM’’"’“I’S"'USED TO.PACK.CGNTRC L" INFORMATICN 

THAT WILL BE SENT TO THE PDFS. 


JALL WITH THE FOLLOWING SEQUENCE: 


RETURN,X2 
BYTE,XI 
PDP 8 CTLX 


BITS 


■* * IMMMMMMHf-IHHMMMf »44****««***4F*I‘«* 


00521 

0 0 522. 

00523 

00524 

00525. 

00526 
00 527. 


47200004 
47 IQ 0 7 43- 


PDP8CT 


1410 0001 

14300004 P 

710 

711 

ENI 

ENI 

CONTROL,XI 
CNTLEXIT,X3 

ENTER QUEUE POINTER 

FAKE A RETURN ADDRESS 

'47300735.P.... 

.7 47". 

.■.■.snrr .~~ 

.QRTADD, X3.. 


14577777 

713 

ENQ, S 

77777B 

SAY MONITOR INITIATED 

.0-400-0-665.P. 

.74-4. 

. -UJP-- 

-CHAR0-3.:.-.-. 

-PRETENO.A.-TTY.CHARACTER- 


* 

CHTLEXIT ,X2 

r-- A *"> f* 


SAVE THE RETURN ADDRESS 
-3AVE-THE”CONTROL BYTE. 
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16 IFHNDLR TTY INPUT CHARACTER PROCESSING 






A* -r V 1 v A* # -V* V V -v 

• A' A 1 ¥ * # ¥ A 1 -A' 


# # # # # ########## X # # # # # V # # # # # # # * # ## 





713 

. 71 c. 

A- 

t w p pm. j n uT m a cpnitn m 

CDrriTCCFQ TTV T K!DI T PW A P A riFD C . ¥ 

a 




720 

721 

* 

A 1 

IF THE CHARACTER IS A CNTL A OR IF THE USER HAS EXECEEDED THE * 
MAXIMUM NUMBER OF INPUT CHARACTERS THIS ROUTINE WILL CALL CNFL * 

0 ; 




.72 2 . 

723 

724 

# 

1 U r LA Lit 

MODE AND 
GENERATE 

1 fit U OtK 1 IN 1 U 0 U IN 1 KUL INUUt. IT 1 fit UitK li JLIN UUIN 1 KUL T 

HE TYPES A RETURN THIS CODE WILL CLEAR CMWAIT AND * 

A LINE FEED SO THAT THE USER THINKS ATLEAST THAT HE * 





.725. 

726 

¥ 

¥¥¥¥¥¥¥¥ ¥# 

IS GETTING LIGHTNING FAST RESPONSE. * 

¥ 

¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ ¥ ¥ ¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥#¥¥¥ ¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥¥ 

O 

00530 

37077777 

X 

728 

729 

NLOGIN 

LPA 

N BIT 2 3 

REMCVE LOGIN STATUS 

(3 

u 05 5 i. 

00532 

00533 

401U 0442 
14477777 
00 70 0465 

.x...... . 

X 

X 

730 

731 

732 

TTIEXIT 

S FA 

ENA,S 

RTJ 

PSA -JLK ? BLK 
NITWAIT 
IOCLEAR 

ALLOW THE USER TO RUN 


0 0534 

.0(5 53 5.. 

01 00 0 0 00 
.1.3 (1 (i n 014- 


.73 3. 

73 4 

. 735 . 

TTINP 

UJP 

win.. 

IMPURE 

. 4 0 .. 

.. CM A Q A fM F P.T O.. . 

Q 

U 0 536 

0 0537 

53600000 
1760 0177 


736 

737 


TAI 

ANA 

JL w 

X 2 

1773 

vim r\ H w I L. 1 w \ n 1 

SAVE THE CHARACTER 

O . 

. 0 0 640. 

00541 

00542 

14700001 
03401034 
20 10 0531 

p 

X 

.750. 

739 

740 


fcNQ. . 

AQJ,EQ 

LOA 

0 13 

CMPL 

PSA3LK,8LK 

CONTROL SHIFT A 

SET INTO CONTROL MOOE IF CSA 

LOAD THE ADDRESS OF THE PSA 


.*.00543. 

0 0544 

..Ij 054 5 .— 

■05 6006 01’ 
01000534 
. 53 7QQQ0fi 

p 

.741“. 

742 

. 743 . 


AEG 

UJP 

T at.. 

1 

TTINP 

.PSA ..... 

SKIP IF THE PSA EXISTS 

IGNORE IF NO FSA EXISTS 
.LOAO IHF PSA TNPFX. 

o 

0 0546 

0 0547 

12000004 

03300534 

p 

744 

745 


SHA 

AZJ.LT 

2 3-19 

TTINP 

IS THE DEVICE A TTY 

JUMP IF NCT 

o . 

...0 0 55 0. 

0 0 551 

0 0552 

12 00 0 0 24 
03300554 
'12000005 

p 

74 6 
74? 

74 fi 


^ H A 

AZJ,LT 

SHA 

2 4-2 3 + 19 
*+3 

23-18 

RESTORE THE WORD 

JUMP IF LOGIN/LOG OFF STATUS 

IS THIS A DEVICE THAT IS ALLOWED 


0 055 3 

0 0554 

. 0 .055-5. 

03300557 
• 20 377777 

.. 

"P. 

X 

_x_................ 

749 

750 

.751 .. 


AZ J ,LT 
IDA' 

..g.NQ.... 

.GRIN 

T TON T)PSA 
..T TINMAX -__ 

.ALL THE.INPUT.CHARACTERS.IT WANTS. 

LOAD CURRENT COUNT OF CHARACTERS 
.....MAXIMUM.A L LC W E D.IN PUT.BUFFER. 

. o 

0 0556 

n n cc 7 

'03601034 
.0 0 557 

p 

p 

.... .... 

752 

753 • 

GRIN 

AQJ,GE 

EQU 

CMPL 

SET BREAK IF EXCEEDING 

o 

U 0 55 ( 

0 0 560 
00561 

C J 6 f lift 

>03200612 
53200000 

p 

.. /D 4. 

75 5 

75 6 


Luft . 

AZJ,GE 
TIA. 

. S Y S C M'jP SA 

N0T3KSLH 

.X.2. 

m K„ £. h L xN C N T R C L r > O L £ 

JUMP IF NCT 

CHARACTER TO A 


“.~.*.00562 

0 0 563 

.............Q..0.564. 

.17 600177 

04 60 0134 
—O-i-O-O-O 61? 

p__.__;_ 

757 ■ 

..fli..... 


ANA 

ASE 

..UJP___ 

0 01776 

Q 0134B 

..MQT 8 K-SL H.- 

MASK OUT PARITY BIT 

SKIP IF A BACK SLASH 

......j.y.f*5.p..ip.fief...................... 

O " 

00565 

00566 

n n Ut-G* 

20300554 

03000534 

£fl.n fid A- 

X 

p 

760 

761 

7 r -5 


LDA 

AZJ,EQ 

TIGHT,PSA 
TTINP 

LOAD NUMBER OF TTY CHARACTERS 
IGNORE IF NO CHARACTER STRING 

O;, 

U U DO i 

00570 

0 0 571 

t> D Du U U U O' 

15277776 
20 377777 

X 

/ be 

76 3 
764 


TAI 

INI 

LOA 

.X <L . 

-1, X2 

TTFGHR,PSA 

LOAD POINTER TO FIRST CHARACTER 


.00572. 

00573 

....0 0 574. 

47100604 
5350 0000 
. 2 . n i n 0 0 o n - 

P . 

.765 

766 

. 76?.. _ 


"ST I. 

TAI 

in.fi. . . . 

CHRPNT,XI 

XI 

,i . Vi 

SAVE POINTER TO END OF LIST 

NEXT POINTER TO XI 

O “ 

00575 

0 0 576 

02500572 

12077760 

'p .. ' .. 

76 8 
769 


IJD 

SHA 

*-3,X 2 
-15' 

LOOP TILL END OF LIST 

q 2 _ 

0 0 57 7 
00600 

0 060 1 

1760017/ 

14700015 

0 3 40 0 534 


77 0 
771 

77 2 


ANA 

ENQ 

AQJ«EQ. 

17 7 d 

0 153 

TTINP 

MASK OUT PARITY BIT 

CARRIAGE RETURN 

EXIT.IF RETURN.WAS..LAST.CHARACTER. 


0 0 602 
00603 

. : ... o .0604. 

. 14477776 

34 30 0 5 65 
.14 60 0 00 0 . 

. -_ __ 

X 

.773. 

774 

.... 7 . 7.5 .. 

_CH-R-P-NX-_ 

ENA * S 

RAO 

_.gNA_ 

. -1 .. 

TTCNT,PSA 
..IMPURE. 

_ENTER NEW.POINTER.TO.END OF.LIST_ 

o ~ 

00605 
00 606 

40 377 777 
53100000 

.X. 

776 

77 7 


STA 

TIA 

T TLCHR,PSA 
XI 

FREE THE LAST CHARACTER 

o. 

0 0 60/ 

0 0610 

0 0 611 

14 3G u 0 u 0 
00700413 
01000534 

X 

p 

7/8 

779 

780 


ENl • 

RTJ 

UJP_ 

0 J X O 

F REE MEM 
_TTINP_ 


tf 

....’. ao 51 2 . 

00612 

.53200000. 

p 

.781 

782 

783 .. 

NOT BKSLH 

EQU 

TIA_...... 

* 

..X 2 _—_ 


O ■" 

f 

0 0 61 3 
JO 614 

00 70 0771 
20 37 7777 

p 

X 

784 

785 


RTJ 

LOA 

O IJ'.. A ----..'------- 

CHAINL 

C R,PSA 

PUT CHARACTER IN LIST 

0 „ ...... 

0 0 615 
00616 
00617 

12 00 0 u 0 4 
03200532 
17200177 

p 

/ 06 
787 

78 8 


SHA 

AZJ,GE 

AN I 

2P-19 

TTIEXIT 

1778,X2 

CHECK FOR SPcCIAL iREATMENT 

CLEAR I08CUND AND RETURN 

MASK TO 7 BITS 

'Q 

.00620. 

0 0621 
. 0 0 62 2 ._ 

15277765 
04200003 
.02 600 534. 

p .___..... v_ 

789 

790 

.791.„ 


TNT 

ISE 

IJD 

.-123, X2 - 

1 58-12B , X2 
_TTINP,X2 

.CHECK FOR LINE.FEED... ~ 

AND RETURN 

.JUMP IF NOT CR CR LF _______ 

o s 

00623 

0 0 624 

„... r. n r n r ... 

20300614 

37077777 

X 

X 

792 

7 9 3 

.,,,. 7 fv 


LDA 

LPA 

CR,PSA 

N BIT 19 

CLEAR THE SPECIAL PROCESSING SIT 


UUt CD 
00626 

4-11 OU 0 o r b 

20 10 0542 

X 

/ 5 4 

795 


Si A.. . 

LDA 

uKjPbA 

PSABLK, BLK 

IS THE USER LCGGED IN 


,a> 

°Q) 

p 

, 0 ) 

"Q 

,o 

i 

o 

0 i 

1.0 

1 1 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

















































o 

o 



o 

o 

q 2 

C 1 



TTY INPUT CHARACTER PROCESSING 

.NLOGIN LOGHIMINIFNCT 

S YSCM 9 PSA DO NOT GENERATE A RETURN 

.TTIEXIT — .IF NOT IN CONTROL MODE. 

X 2 

T TIEXIT» X2 SET THE RETURN FOR CHAROUT 

F CR .. " PRINT A OR .- ' 

0123 ASCII FOR LINE FEED 

77777B SAY MONITOR INITIATED 

CHAR SAVE THE CHARACTER 

CHAROUT 


0) 

< 2 ) 

G 


b G 

o 

i 

>Q 

i 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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TTY OUTPUT CHARACTER PROCESSING 


Tw ■ 

‘f- 

* _ 


lifT Jjjji & V J r -V # •¥• ■H' ^ v ^T>^T3yt;' ^ ^ *i£ >/. ■ —- — 

ROUTINE T-G OUTPUT GHARACTER TO- IE L E-T Y P E-.--— ......*■ 

& 

CALL WITH ONE OF THE FOLLOWING SEQUENCES! * 

IF USER INITIATED * 

ENI PSAj X3 * 

ENI. .RETURN, X2. ; .*.. .”... * 

ENA CHARACTER * 

-UUP- CHAROUTP--—-----—---* 


IF MONITOR INITIATED 

DI NT————— 

ENQ,S -0 

ENA CHARACTER 

SWA..CHAR. 

ENA RETURN 

-SWA-QRIAQO.-.- 

UUP CHAROUT 


#***** ♦**••*♦* *•* * * *-*■* •* * * *•**■•**-* *'**•*•*•♦-*'*'♦'*■*-*•*•*'♦•*'» *-* *•*•*-»'»'* •*•*•*- 


0 0641 

1I0”64F 
0 0 643 
0 0 644 
0 0645 
0 0646 
-O0'64“F- 
00650 
00651 
0 0 652. 


77730000 

17607777 

44000743 

00701060 
14700001 
47200703 
47 20 0 735" 
47300734 
20077777 
T7 60 0 020 


0 070 1 

0 0-70 2. 

0 0 703 


1460046? 
-5-4-30-0.Z 34- 
01000000 




0 0713 
0 0 714 
00715 

.0 0716 

0 0 717 

00720. 

00721 
0 0 722 
00723 
0 0 724 


00700350 X 
40300000 
35000504 X 

40 50 0 672.X 

14600001 

04100002.... 

01000736 P 
15 60 0 0 01 
40300001 " 
12077776 


I HAR O UTP 


-e*ttA*RO‘Uf- 


A12/DINT_ 

7 777 Q 
CHAR 

PCHARS- 

1 

W AIT EXIT,X2 

QRTAOG,X2 . 

CHAREXIT,PSA 
INHIBIT ‘ 

'"'201 . 


SC RAP ARY E XTRA.SITS . 

SAVE THE CHARACTER 

DESTROY.ANY-.INPUT-.CHARACTERS. 

SET Q t-Q 

SAVE RETURN IN CASE OF DELAY 

SAVE THE"RETURN ADDRESS. 

SAVE Th£ PSA F CIN TER 
IS THE SYSTEM SUPPOSE TO FLOD UP 
15IE~ : “ . 



0 0 653 
,.-00 554. 

03 10 0 7 33 
.2 0 -377-777. 

P 

..x. 

841 

....842.. 

AZJ,NE 

..IDA. 

CHARDONE 

.XERMIMAL.PSA.. 

PRETEND THE CHARACTER WENT OUT 

.-..-LOAD -THE TERMINAL- NUMBER..... 

O .'. 

0 0655 
00656 

12077760 

53500000 


843 

844 

SHA 

TAI 

— lb 

BLK . 

TERMINAL NUMBER TO BLK 

o . 

0 O ct) r 

0 0 660 
00 661 

4 4 0 0.0 / 3 0 
20 10 0626 
12 000 003 

p 

X 

' ' *.34 5 

846 

847 

S W A 

LDA 

SHA 

T ERM 

PSABLK,XI 

2 3-2 0 

SAVE THE TERMINAL NUMBER 

CHECK THE HIGH SPEED 811 


0 0 662 
00663 
.0 0.664. 

15lu 0 0 Gi 
03 30 0 665 
.14-10-0-0.-0..?.- 

p 

84 8 

84 9 

...._.8-5-0-. 

INI 

AZJ,LT 

._. ENI . 

i,Xi 

GHAR03 

.TTYOAIA. XI. 

fiS^EKE HIGH SPEED 

JUMP IF 'REALLY“HIGH SPEED 

o 

00665 

00665 

20100505 

p 

V 

851 

852 

CHAR03 EQU 

LDA 

* 

PDP80Q,BLK 

LOAD THE QUEUE POINTER 

o _ 

"00666 . 

0 0 667 
00670 

12 0 0 0 U (J b 
03200712 
20500665 

p 

X 

8 53 

854 

855 

. , SiTA” 

AZJ,GE 

LOA , I 

CHAR00 

POPS OQ,BLK 

INCIRhCT BIT TO SIGN POalilON 

JUMP IF NC SLOCK PRESENT 

LOAD THE BLOCK ADDRESS 


0 067 I 

0 0672 

_0-0-673. 

.53T0'TT0"Q'0" 

36100670 

.04777 777 

X 

. 35& - 

857 

_85 8 _ 

TAT . 

SCA 

QSE 

X3 

PDPSOQ,8LK 

777770 _-_ 

IS THERE MORE THAN ONE BLOCK 

_:_SKIP IF HCNITCR REQUEST__ • __-______:.... 

o 

0 0 674 
00675 

0560 0001 
01000704 

p 

•.,.•.*/•••v^*'’*v* , , , ** 1 A*v-/* •/.*.’i'/-.*•*■-*/vvv K 

859 

86 Q 

ASG 

UUP 

1 

CHAR 01 

SKIP IF MORE THAN ONE BLOCK 

JUMF IF WE SHCLLO PROCESS 

C> 

0 0 676 
30677. 

ij 0 b 7b 
541G073G 
.14 20,0.7 01 

w . . . .- 

p 

p._.... 

uul 

862 

.863 

cmWf tilu 

LOI 

___ENI_ 

TERM,BLK 

__F+2.» X2,._;._ 

LOAD THE TERMINAL NUMBER 

_ENTER T,HE.RETURN______ 


CII STOP 

“waTtexiT 


r u i u w i l. s\ 

OUT 30 UNO 

.CHARE-XI-T-,RSA- 

IMPURE 


I'D 

O. 

0 0 704 

0 0705 

00704 P 
20300001 

15600001 

——— 8-6 S 

870 

871 

--e H *RG±— 

EQU 

LDA 

INA 

1, X3 

1 ' 


.00 70 6 

0 5'60CT75.... 

..87 2. 


. A'S'G . 

62+62+1 


0 0 70 7 

01000720 P 

873 


UJP 

CHAR 07 

o . 

..a 0 710. 

.0.4-777-777..... 

. 874-.. 


„.QS.E... 

.7 777 79 

O 

00711 

01000676 P 

875 


UJP 

CHAR04 


0 0712 

14300006 

876 

CHAR00 

ENI 

6 ,X3 


CHARO7 


RTJ 

STA 

SSA 

STA,T 

ENA 

-I S-E—. 

UUP 

INA 

"STA¬ 
SH A 


0 ,X3 
8 IT17 

PDP80Q, BLK 

TTYDATA,XI 
HSCHAR 
1 

*±TX1—— 


TELL.UIO TO WAIT 

-LOAD.THE.PSA INDEX 

AND EXIT 


LOAD THE WORD/CHARACTER COUNT 

SKIP.IF 'THE.BLOCK.WILL.OVERFLOW 

.SKIP .IF. IMMEDIATE.-.-. 

TURN THE USER OFF 

GET A 64 WORD BLOCK OF MEMORY 

POINT THE BLOCK AT ITSELF 
LINK. THIS . BLOCK .INTO THE. QUEUE . 

THE BLOCK WILL HAVE ONE ITEM 

.I.S.THIS.TTY. DATA .- : 

JUMP IF NOT 

KEEP THE COUNTER CORRECT 
CONVERT TO WORD COUNT 


o 
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0 0 725 
00726 

...QQ727. 

5374000U 
20 000743 
13 0 7 7763 

P 

8 87 
868 
.389.. 


IAI 

LDA 

SH AO. 

a. 

00730 

0 0731 

14600000 

13000014 


890 

891 

TERM 

CHAR05 

M /I 

ENA 

SHAQ 

o . 

u 0 Y o2 

0 0 733 

0 0734 

4GouGUui 
1460 0000 
14300000 


8 92 

893 

894 

CHA R06 

CHAROONE 

CHAREXIT 

ST A 

ENA 

ENI 


00 735 

01000000 

.n.0 7 3 &. 

. P . 

895 

89 6 

897. 

CRT ADD 

.hschar. 

UJP 

£QU... 

O 

00736 

00737 

40300001 

13077776 


898 

899 


ST A 
SHAQ 

0 ^ 

0 0 74 0" 

00741 

00742 

5 3 74 00 0 0 
20300001 
17470000 


90 0 

901 

902 


~ttT—~ 

LDA 

ANA, S 


0 0 743 

0 0744 

..0 0745. 

16600000 
05500000 
.02 300 731- 

P...‘...... 

90 3 
904 

.,g..0-.5_ 

CHAR 

XG A. 

QSG, S 

TJI 

a 

00746 

01000732 

P 

906 


UJP 

o .. 


o 


o 

o 


o 

Q, 

d 1 

i o 

o 9 

o 8 

7 

o 6 

o ; 

4 

o, ? 

o ; 


TY OUTPUT CHARACTER PROCESSING 

.X 3.POINT.TO.THE.WORD.TO.HIT. 

CHAR BLOCK GET THE CURRENT CHARACTER 

.-12.-.-.S A VE.IT.IN.(Q).—.-.-----.-. 

IMPURE ENTER THE TERMINAL NUMBER 

12 

17X3 STORE THE CHARACTER IN THE* BLOCK 

0 SAY NORMAL RETURN 

IMPURE,PSA RESTORE THE PSA POINTER 

IMPURE ........EXIT 


1,X3 STORE THE NEW COUNT BACK 

-1 WORD CNT IN (A) CHARACTER IN {Q) 

X 3.—— — POINT' INTO THE BLOCK .." 

1,X3 LOAD THE WORD THAT IS THERE 


700008 

SAVE 

THE TOP HALF 

IMPURE 

PUT~ 

IN THE CURRENT CHARACTER 


0 

-C HA R 05,X3 — _.FI R ST-HALF - W OR D 

C HARO6 SECOND HALF WORD 


,<I 

,0 

9 o 

,CI 

6 

O 


i.O 

i i 

o 

o 



o 

o 

o 

o 

o 

o 

o 

o 



o 
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IFHNDLR 


*VJ)TFP iW¥WTWTffWT¥T¥r^T«T»¥¥Tr»T^T¥?»T¥Wf ¥¥¥1f'l¥¥ , ¥ , ^ , #* ,, ¥ , ¥#¥ , ¥ ,, #¥ , *¥¥¥¥¥ 

* * 

-ROUTINE.TO.GET AN.INPUT CHARACTER.FROM A.TTY.BUFFER----.~.*- 

* * 

* CALL WITH THE FOLLOWING SEQUENCES * 

* ENI PSA POINTER,X3 * 



916 

* 

ENA 

RETURN 

& 


917 

* 

UJP 

CHARINP 



A = 0.IF- CHARACTER STORED.-INTO.USERS A.REGISTER 

A = NON-ZERO IF NO CHARACTERS 


* V- * *■ * •* * * ■*¥■*•¥ # *********** * W *■¥ * ¥ ** 


0 0 747 
0 0750 
0 0 751 

-4-Q-7-5-2— 

0 0 753 
0 0754 

-Q-Of*5-5“ 
00756 
0 075 7 
0 0 76 0 
00761 
0 0 762 
0 0 763 
00764 
0 0 76-5“' 
00766 
0 0 767 
0 0 77 lf~~ 


77730000 

■47 30 0 7 34 P. 

44000 735 P 

-44-40-07-03 .P 

20300603 X 
15477776 
—Q'3‘3crG'7 01 P 
40300753 X 
20700571 X 

.213 01757 .X' 

44300760 X 

„4.Z.40-0-0-4I. 

17600777 
40377777 X 
-13 00 0 0 30— 
14300000 
00700610 X 
. 0TW07'T3~"P - 


92 3 
924 
92 5 
926 

92-7- 

92 e 

92 9 
"93-0- 

931 

932 

933 . 

934 

935 .----- 

935+001 
938 
-9 3 9 

940 

941 

■942 ... 


CHARINF 


VFD 

TIT . 

SWA 

SWA- 

LD A 
INA, S 
-A-Z-UTtT- 
STA 
LO A , I 
LOG 
SWA 

--SH-A—.— 

ANA 

STA 

SHAQ-- 
ENI 
RTJ 
UJP 


A 12/DINT 

CHAREXITjPSA 

QRTADD 

-WAI-T-E-X-I-T- - 

TTCNT ,PSA 

-1 

■~e-TTS-TOP—~— 
TTCNT,PSA 
TTFCHR,PSA 
TTFCHRjPSA 
J TFC HR,PSA 

.7 778 . 

A,PSA 
2 4 
0 ,X3 
FREEMEM 
C HA RD ONE 


SAVETHEFSA .POINTER 

SAVE RETURN ADDRESS 

-SAVE.RETURN FCR.EMPTY.RETURN 

LOAD INPUT CHARACTER COUNT 

■RE'TU R N“ WITH-A NCN-ZE R O.- 

SAVE THE NEW COUNT 
GET THE NEXT CHARACTER 

'■GET .THE.SLOCK. TOEFIE5S .'. 

REMOVE THIS 3LOCK FROM THE QUEUE 

CHA R A C-T-E-R .TO THE. LO W -. END . OF .(A). 

KEEP ONLY CHARACTER 

SAVE THE CHARACTER IN THE USERS I 

• BLOCK.iA"ODRESS“T'e-“i'Ai“”.—.*.- 

ITFS 1 WORD LONG 


NORMAL 


O 

uUvJ ;- r .> 

<L 

0 

4--1--- 

tivisy 

f : 

ML 



47 

O 

O . 

.'....:...U)... Up .. 

ai 

. is .... i(?, .. 

_....'.... 




. O 


rib 








O 



JM 





O 

O 

Nb{\(2 

K.x 

M 

2r|f 




■.:.____ O 


2M 

.. F2.. 

__M_ 

ij-j k/L 





O . 


r 

a 





0 


o 


o 

















































* * * * 
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.1030. 

1031 

1032 

.. 1033. 

1034 

1035 

1036 

1037 

.10 38. 

1040 


IFHNDLR 


If if if if if if if if if if if if if if if if if if if if if if if. if if if if if if if if ^ifififififififififififififififif if if if if if if if if if if if if if if if if 

.*.............................._!...* 

* ROUTINE TO REMOVE ALL THE CHARACTERS FROM A PROGRAM STATUS * 

* AREA * 

■-•S'—- .• . • • ... .- ...—.—. 

* CALL WITH THE FOLLOWING SEQUENCEi * 

* * 

* ...ENI...PSA.POINTER, X3.■.*....... * 

* RTJ P CHARS * 

.jr.._.................;...............:.. 

¥ J?. ■**-¥• »¥ * *■¥••>? * V-V-V- WV-V- WW * WW W* »■»¥•» * * ¥#-*■¥■ ***?■*■ *-**•* * ¥ *■■»** 


... 0 


■'CD 


,($ 


o 


0 . 

' 0106 0 . 

01061 

01 00 0 0 00 

20301013 X 

--- 10 41 

1042 

1043 

PCHARS.. 

* 

“UUP 

LDA 

IMPURE 

TTCNT, X3 

. —ROUTINETOREMOVE ALLCHARACTERS. 

FROM A PROGRAM STATUS AREA 

GET COUNT OF SLOCKS 



. ,0 


. 0106 2 . 

01063 

,. 01064-.... 

.03 001060.P.' 

47101074 p 

47 201075.. P. 

.10 44. 

1045 

.1.046. 


A2 J > EQ 
STI 

..CTT.. 

PCMAR 

PCHI1,XI 

.PCHT 2.X?. 

RETURN IF NONE PRESENT 

SAVE INDEX ONE 

.SAVE.XN-DP-X.TWO.-....- . 




o 

01065 

01066 

47301076 P 
53500000 

' 104? 

10 4 8 


STI 

TAX 

PCHI3 j X3 

XI 

SAVE INDEX THREE 

PLACE COUNT IN INDEX ONE 



o 

„., 4 01 

0 . 

1111 ) 0 / 

01070 

01071 

d.030 x0 11 X 
53600000 

20301001 X 

..TO 49.... 

1050 

1051 


L. 0 A 

TAX 

LDA 

j I LGHR)X o 

X 2 

TTFCHRj X3 

...bt. I.LAS 1.BLOCK.AuURESS... 

PLACE IN INDEX TWO 

GET FIRST CHARACTER ADDRESS 



.. uO 


...010 7 2 

01073 
. .0107 4 

.L43Q.OW0.:. 

00 777777 X 
.. .14.10 0 0 OQ..-. 

.TOFTS. 

1053 

...10-5 4. 

.RCHXi. 

.ENT. 

RTJ 

_E-N-I.-. 

0 9 X3 

FREECHN 

. T. MOM PF, XI.. 

..*.FOR.ONE.WORD.B LOCKS.. 

.REST O RE.TNO F X.n. M£_________ 



Z l 

0 .. 

01075 

01076 

14200000 

14300000 

1055 

10 56 

..... 

PCHI2 

PCHI3 

ENI 

ENI 

•si* t si \hJ 1 \i jttia. ® mmm 

I.MPURE, X2 
IMPURE,X3 

RESTORE INDEX TWO 

RESTORE INDEX THREE 



~ o 

o .. 

0 107 7 

01100 

144000U0 

40301061 X 

01060 P 

i o b r 

10 58 
1059 

PGM AR 

ENA , S 

STA 

EQU 

TTCNT,X3 

PCHARS 

ZERO COUNT WHEN STRING DESTROYED 



._ o 


. 01101 . 

.ffiwiwB. p . 

X 

“.. TO'60 . 

1061 

_- 1 .. 0 . 6.2 _ 

LGGBITS 

.UJF~. 

EQU 

.PCHARS. 

6 IT 2 3 21 

RETURN. 

BITS 23 AND 21 




O . 

• NO LI 

NES. “WT'T'H'••’ERROR’S'''- 

1063 


END 





. o 


o 


.o 


o..".: : .■...:.". : ...:.".~.. . : ~..”.'. : ...~.".;... - .. r .~. _ ...~... r .;... : .y.o 

q 2 ..._...... 1 ........._....._............._____.....................:.:.....:............o 
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0ATCHPNT 

.3FPTR.-. 

3 T17 
9IT19 

..01T 2 2. 

3IT23 
3IT2321 

.BIT2322 . 

BITS 

-. 3LK.-. 
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0 Q 0 2 2 
00001 


00473P 
00001., 


..9LKPOS.. 

BLOCKCHK 

BNEWS 

*.BUSY . 

GALLBAO 

- .G BLOCK-. 

CENP 

CHAIML 

CHANTNT. 

CHAR 

CHAROO 

CHARQ1 . 

CHAR03 

-C HARO 4_ 

CHAR05 
CHARO 6 

.CHAR07. 

CHARDONE 

CHAREXIT 

.CHARINP 

CHAROUT 

.CHAROUTP 

CHECIMFO 

CHERRORS 

CHFlAG 

CHNCR 

CHNM 

.GFIRPNT .“ 

CHSPF 

- .CHSVI3. 

CMCODE 
CM PL 
, CMQSET 
CMSTMT 
CNTLEXIT. 

.C’O'MWORO 

C0N3L0CK 

- .CONNECT. 

CONS 
CONTROL 
CONTROLA 
C R 

CREATE 


"0000 2. 

00306P 

00214P 

.00 002. 

00 004 

•—0 0 01-1 .- 

0047IP 
0 077 IP 
• 00 2 46P- 
0Q743P 
00712P 

.0 07 0 P 

00665P 
—(L067-6g- 
0 0 7 3 IP 
00732P 

.OQ720P 

00733P 
00734P 


00647P 

-00 64 IP-. 

00117P 
0 0 24 OP 

¥0 0 2 7P. 

0100 7P 
01003P 

inreiw. 

01006P 
-0100 4P.. 

01034P 

01023P 

00004P 

'¥0¥25. 

00 00 0 


00I77P 
0 0 0 0 1 


74 
130 
.109 

75 

76 
76+1 

78 

77 
7 8+1 

652 
r—1-2-4- 


519+6 

424 

~.14 T 

113 

—. 11 - 8 - 

649 

956 

““"“"4'8"6" 

903 

_876. 

869 

851 

.861- 

891 

892 

—8-8'2“ 

893 

894 

“.¥2¥ 

83 7 

.83-1- 

352 
47 8 

— zm~ 

971 

966 

.“775“ 

969 

.-.-9-6-7- 

82 

1 00 6 

-8±~ 

997 

249 

.134 

10 8 
.-—7-9- 


938 

131 

-HI 

309 

994 

519+27 

256+5 

.10 61. 

424+1 
600 

.556 

852 
10 07 
—112“ 
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